ОЧЕНЬ СРОЧНО Дан целочисленный массив из 30 элементов Элементы массива могут принимать значения от -1000 до 1000 Опишите на языке программирования (паскаль) алгоритм, который находит и выводит среднее арифметическое всех элементов массива , оканчивающихся цифрой 5 Гарантируется, что хотя бы один такой элемент в массиве есть const N=30; Var a: array [1 N] of integer; i,x,y: integer; s: real; begin for i:=1 to N do readln(a[i]); end Запрещено использовать переменные , не описанные ниже, но разрешено не использовать часть из них , Только не пишите мудрено, т к я в 10 классе, мне нужна такая нормальная адекватная программа)))

ОЧЕНЬ СРОЧНО Дан целочисленный массив из 30 элементов Элементы массива могут принимать значения от -1000 до 1000 Опишите на языке программирования (паскаль) алгоритм, который находит и выводит среднее арифметическое всех элементов массива , оканчивающихся цифрой 5 Гарантируется, что хотя бы один такой элемент в массиве есть
const N=30;
Var a: array [1 N] of integer;
i,x,y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);

end
Запрещено использовать переменные , не описанные ниже, но разрешено не использовать часть из них
, Только не пишите мудрено, т к я в 10 классе, мне нужна такая нормальная адекватная программа)))

  • Var
    a:array1..30of integer;
    i,x,y,n:integer;
    s:real;
    begin
    for i:=1 to 30 do readln(ai);
    for i:=1 to 30 do
    begin
    if aimod 10=5
    then begin
    y:=y+ai;
    inc(x);
    end;
    end;
    write(y/x:0:0);
    readln;
    end.
  • Const N=30;
    Var a: array 1..N of integer;
    i,x,y: integer;s: real;
    begin
    for i:=1 to N do readln(ai);
    s:=0; x:=0;
    for i:=1 to N do
    if abs(ai) mod 10 = 5 then begin x:=x+1; s:=s+ai; end;
    writeln(Среднее = ,s/x);
    end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *