Определите номер записи в котором средний самый высокий и номер поля, в котором средний был самим низким. Введите ваш ответ цифрами через запятую и без пробелов. (,) *

270

383

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

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

nazfire2003

Информатика

4,5(57 оценок)

Program bb; uses crt; const n=30; var m: array[1..n]of integer; i,k,s: integer; begin clrscr; randomize; for i: =1 to n do begin m[i]: =i; write(m[i],' '); end; writeln; write('k = '); read(k); writeln; s: =0; for i: =1 to n do if m[i] mod k = 0 then begin s: =s+m[i]; write(m[i],' '); end; writeln; writeln; writeln('сумма элементов кратных данному к = ',s); end.