Инофрматика 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.

Question

Информатика

Нургат

27 августа, 09:02

Инофрматика 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.

+4

Ответы (1)

Знаете ответ на вопрос?

Мозер · Answer 1

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]
end;

writeln ('min=', min,' max=', max) ;

readln

end.