Регистрация
алиса2343
03.11.2021 23:34
Информатика
Есть ответ 👍

Сделать в excel первую таблицу (рис. 2.2)

153
323
Посмотреть ответы 1

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

darina2605
darina2605
4,4(3 оценок)

 

1)

var

a: array [1..5] of integer;

i,s: integer;

begin

randomize;

for i: =1 to 5 do begin

a[i]: =random(6);

write (a[i],' ');

s: =s+a[i];

end;

writeln;

writeln (s);

readln;

end.

 

2)

var

a: array [1..20] of integer;

i,k,l: integer;

begin

randomize;

for i: =1 to 5 do begin

a[i]: =random(6)+5;

write (a[i],' ');

if odd(a[i])=false then k: =k+1 else l: =l+1;

end;

writeln;

writeln (k,'   ',l);

readln;

end.

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