1. Что изображено на рисунке? Раскрась рисунок
4-5 предложений. Придумай название.

264

497

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

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

MaxHelpMelol

Информатика

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

1)const n=5; var a: array[1..n] of byte; k,i: integer; beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение > 2 '); for i: =1 to n do readln(a[i]); for i: =1 to n doif a[i] div 10 > a[i] mod 10 then inc(k); write(k); end. 2)const n=5; var a,b: array[1..n] of byte; sr,max,k,i: integer; beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение > 2 '); for i: =1 to n do a[i]: =random(100); for i: =1 to n do b[i]: =a[i]; for i: =1 to n do max: =max+a[i]; sr: =max div n; writeln('начальный массив'); for i: =1 to n do writeln(a[i]); write('сред арифм= ',sr); writeln; for i: =1 to n do if sr> b[i] then b[i]: =0; for i: =1 to n do writeln(b[i]); end.