Регистрация
kirllakylov
15.05.2020 02:51
Информатика
Есть ответ 👍

1. дан массив а=(2, -9, -3, 1, 4, -3, 6, -7, -4, 9)
а) описать массив в разделе var
b) чему равно значение а[5]=?
c) чему равно значение: а[2] + а[10] * a[5]=?
d) что получится после выполнения фрагмента программы:
for i: =1 to 10 do
if a[i]=6 then write(‘i=’,i);

103
274
Посмотреть ответы 1

Ответы на вопрос:

olyacuznet5ova
olyacuznet5ova
4,7(42 оценок)

var a,b,c,s1,s2,k,i: integer;

begin

write('a, b, c: ');

readln(a,b,c);

s1 : = 0;

for i: =1 to b do

s1 : = s1+a;

s2 : = 0;

for i: =1 to c do

s2 : = s2+c;

writeln('s1 = ',s1,' s2 = ',s2);

k : = 0;

for i: =1 to s1 div s2 do

begin

k : = k+1;

s1 : = s1-s2;

end;

k : = k+1;

writeln('k = ',k);

end.

Популярно: Информатика