Напишите программу пожалуйста
Ввести одномерный массив A из 13 элементов. Определить в нём
среднее арифметическое тех элементов, которые при делении на 4 дают
остаток 1 или 3.
Ответы на вопрос
Ответил informikt
0
begin
S:=0;
n:=0;
for i:=1 to 13 do begin
readln (A[i]); end;
for i:=1 to 13 do begin
if (A[i] mod 4 = 1) or (A[i] mod 4 = 3) then begin S:=S+A[i]; n:=n+1; end;
end;
writeln (S/n);
end.
S:=0;
n:=0;
for i:=1 to 13 do begin
readln (A[i]); end;
for i:=1 to 13 do begin
if (A[i] mod 4 = 1) or (A[i] mod 4 = 3) then begin S:=S+A[i]; n:=n+1; end;
end;
writeln (S/n);
end.
Новые вопросы