1)Дан целочисленный массив из 30 элементов. Элементы массива
могут принимать значения от –1000
до 1000. Опишите на русском языке или на одном из языков программирования
алгоритм, который находит и выводит среднее арифметическое всех элементов
массива, оканчивающихся цифрой 5. Гарантируется, что хотя бы один такое элемент
в массиве есть.
Program m99;
Const N=30
Var A:array [1..30] of integer;
I,x,y,min,max: integer;
S:real;
Begin
Min:=1000;
Max:=-1000;
For I := 1 to 30 do
Readln(A[I]);
If A[I]< A[N] then
Begin
x:=x+1;
y:=y+A[I];
S:=y/x;
Write(S);
End;
End.
A[I]< A[N] - неверное условие, д.б.всех элементов массива, оканчивающихся цифрой 5.
ОтветитьУдалитьFor I := 1 to 30 do
Readln(A[I]);
If A[I]< A[N] then
Begin
x:=x+1;
y:=y+A[I];
S:=y/x;
Write(S);
End; - этот "end" стоит не на месте
Этот комментарий был удален автором.
ОтветитьУдалить