Посмотрите на рисунок 1. Назовите инструменты, которые
были использованы.
2. с каких команд
вы получили 2-ю и 3-ю утку?
3. с какой команды
вы перевернули одну из уток?

234

251

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

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

113Diana113

Информатика

4,6(30 оценок)

//pascal abc.net v3.1 сборка 1172 var ar: array[1..15] of integer; i,k1,k2: integer; r1,r2: real; begin randomize; writeln('array: '); for i: =1 to 15 do begin ar[i]: =random(-20,20); write(ar[i]: 4); if i mod 2=0 then begin inc(k1); r1: =r1+ar[i]; end; if ar[i]> 0 then begin inc(k2); r2: =r2+k2; end; end; r1: =r1/k1; r2: =r2/k2; writeln; if r1> r2 then writeln('среднее арифметическое элементов стоящих на четных местах'); if r1< r2 then writeln('cреднее арифметическое положительных элементов массива'); if r1=r2 then writeln('равно'); end.