1) перепишите программу в тетрадь

var
a: array[1..200] of integer;
i,n,p,k: integer;
begin
p: =20;
n: =0;
randomize;
for i: 1 to 200 do
a[i]: =random(100)-50;
for i: =1 to 200 do
write(a[i],' ');
writeln;
for i: =1 to 200 do
if a[i]=p then
begin
writeln('a[',i,']=',a[i]);
n: =n+1;
end;
writeln;
writeln(n);
end.

2) напишите программу в pascalabc.

3) ответьте письменно на вопросы. запишите ответы в тетрадь.
3.1. сколько элементов в массиве?
3.2. какой фрагмент программы отвечает за запись элементов массива в памяти компьютера?
3.3. в каких пределах целых чисел могут находиться элементы массива?
3.4. для чего в операторе вывода напечатано ' '?

4) ответьте письменно на вопросы. записать ответы в тетрадь.
4.1. что программа выводит на экран оператором writeln('a[',i,']=',a[i]); ?
4.2. для чего нужна переменная n?
4.3. какая переменная лишняя?
4.4. что программа выводит на экран оператором writeln(n); ?

5) измените код программы так, чтобы программа находила и считала количество элементов равных 0 среди 300 элементов целочисленного массива, значение которого расположены между -20 и 20. написать программу в pascalabc.

MINIONCHIK17    2   21.12.2019 22:30    1