1)ввести с клавиатуры массив а из 5 элементов, найти минимальное из них 2)умножить все элементы массива а на 2 3)найти среднее арифметическое всех элементов массива a

206

440

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

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

howl111

Информатика

4,8(78 оценок)

var a: array [1..5] of integer; i,min,s: integer; begin for i: = 1 to 5 do begin write('введите ',i,' элемент массива: '); readln(a[i]); end; min: =a[1]; s: =0; write('введенный массив: '); for i: = 1 to 5 do begin write(a[i]: 4); if a[i]< min then min: =a[i]; s: =s+a[i]; a[i]: =a[i]*2; end; writeln; writeln('минимальный элемент массива = ',min); write('удвоенные значиния элементов массива: '); for i: = 1 to 5 do write(a[i]: 4); writeln; writeln('среднее арифметическое элементов массива = ',s/5); end.

Jasurka940

Информатика

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

Begin read(n); for i: =1 to n do readln(a[i]): min: =a[1]; for i: =2 to n do begin if a[i]> max then max: =a[i]; writeln(a[i]) end; for i: =1 to n do begin a[i]: =a[i]*2; write(a[i]) end; s: =0; for i: =1 to n do s: =s+a[i]; f: =s+/n; writeln(f) end.