Регистрация
аслансосланов
06.02.2020 20:40
Информатика
Есть ответ 👍

Өз аты-жөніңізбен жасыңыз шығатындай код құрыңыз моё имя: Рысдаулет Мухамедали прашу

192
356
Посмотреть ответы 1

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

Set1z1337
Set1z1337
4,5(4 оценок)
Var   a: array[1..15] of integer;   i,c,n: integer;   cr: real; begin   for i: =1 to 15 do begin       a[i]: =random(-20,10);       if a[i] < 0 then begin           c: =c+a[i]; n: =n+1;       end;       write(a[i]: 4);   end;   writeln;   cr: = c/n;   write('ответ: ',cr); end.

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