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

Дан массив а 5. Случайные числа от 0 до 30. Найти сумму и среднее арифметическое всех чисел.

  1. Ответ
    Ответ дан denich1k
    program z1;

    var a:array [1..5] of integer;
    s, k, n : integer;
    begin
    for I:=1 to 5 do begin
    readln ( a[I]);
    s:=s+a[I];
    k:=k+1;
    end;
    n:=s/k;
    writeln (s, k);
    end.
    надеюсь помог
Самые новые вопросы