Скласти алгоритм блок схему: Дано набір з 30 елементів, обрахуйте суму перших 15 елементів.

204

323

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

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

seliza415

Информатика

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

//pascal abc.net v3.1 сборка 1219 const n=5; var ar: array[1..n] of real; i,k: integer; begin randomize; writeln('array: '); for i: =1 to n do begin ar[i]: =random(3); write(ar[i]: 6); end; for i: =1 to n-1 do if ar[i]=ar[i+1] then k: =k+1; writeln; writeln('res=',k); end.