profile
Опубликовано 4 года назад по предмету Информатика от nai972013

1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7] элементов; b) Найти разность a[9] и a[3] элементов; c) Найти среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.

  1. Ответ
    Ответ дан pro100LiNa

    var
    a: array[1..15] of integer;
    i,n: integer;x:real;m:int64;
    begin
    for i := 1 to 15 do
    readln(a[i]);m:=1;
    for i:=1 to 15 do begin
    x:=x+a[i];m:=m*a[i];end;
    writeln('a[1]+a[7]:=',a[1]+a[7]);
    writeln('a[9]-a[3]:=',a[9]-a[3]);
    writeln('srednee ar.:=',x/15);
    writeln('proizvedenie:=',m);
    end.