Регистрация
skubelinavika
10.02.2021 18:36
Информатика
Есть ответ 👍

Вычеслительный автомат дата: где и кем создана . счетно перфорациональная машина дата: где и кем создана:

134
289
Посмотреть ответы 2

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

tttyadoyan235
tttyadoyan235
4,8(11 оценок)
1- чарльз бебидж 1823-1824
тараканеше
тараканеше
4,8(87 оценок)

var

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

i,c,k: integer;

sr: real;

begin

randomize;

for i: =1 to 20 do begin

a[i]: =random(80)-44;

write (a[i],' ');

end;

writeln;

write ('c = '); readln(c);

for i: =1 to 20 do

if a[i]> c then begin

sr: =sr+a[i];

k: =k+1;

end;

sr: =sr/k;

writeln (sr: 0: 2);

readln;

end.

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