Инофрматика 11 класс(массивы)Необходимо переделать программку,чтобы она вмсето скммы-творенье
Инофрматика 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]gt;max then max:=a[i];
if a[i]lt;min then min:=a[i];
end;
writeln('min=',min,' max=',max);
readln
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.