Инофрматика 11 класс(массивы) нужно переделать программу,чтобы она вмсето скммы-произведение и вычеслить среднее арифмитическое кот код: program pa; var a: array[1..5] of real; s: real; i: integer; begin for i: =1 to 5 do begin writeln('a[',i,']='); readln(a[i]); end; s: =0; for i: =1 to 5 do s: =s+a[i]; writeln('s=',s); end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program z;
var a: array[1..100] of integer;
i, n, min, max: integer;
Begin
writeln('введите n');
readln(n);
writeln('введите ',n,' элементов массива');
for i:=1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('min=',min,' max=',max);
readln
end.