Регистрация
дартячтчтт
03.05.2020 10:57
Информатика
Есть ответ 👍

Какое число будет выведено на экран в результате выполнения этого фрагмента программы? k:=1; s:=0; repeat s:=s+k; k:=k+2; until k>8; writeln(s);

288
425
Посмотреть ответы 1

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

Мир666ад
Мир666ад
4,8(70 оценок)
Const n= var a: array [1..n] of integer; (целый) i,k, i_max: byte; max, sum: integer; begin randomize;     или          for i: =1 to n do for i: =1 to n do              readln(a[i]); a[i]: =random (100); k: =0 for i: =1 to n do if a[i]< 0 then k: =k+1]; max: =0; i_max: =0; for i: =1 to n do if a[i]> max then begin max: =a[i]; i_max: =i; end; sum: =0; for i: =i_max to n do sum: =sum+a[i]; writeln('количество отрицательных элементов ',k); writeln('сумма элементов ', sum); readln; end.  

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