Визначте значення S після виконання операторів:

X := 0 ; S := 0;

Whіle Х<=5 Do begin

X := X + 1;

S := S + 1; end

159

329

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

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

garanina2005

Информатика

4,4(79 оценок)

Const n=9; var a: array[1..n] of integer; i,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random(7)-3; write(a[i]: 4); end; writeln; k: =0; for i: =1 to n do if a[i]< 0 then k: =k+1; writeln('k = ',k); end. пример: 3 -2 1 1 -2 0 3 0 0 k = 2