Дан массив из 10 целых чисел. Найти среднее значение элементов массива
Дан массив из 10 целых чисел. Найти среднее значение элементов массива
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var
i,s:integer;
s1:real;
a:array[1..10] of integer;
begin
writeln('Введите числа');
for i:=1 to 10 do
begin
readln(a[i]);
s:=s+a[i];
end;
s1:=s/10;
writeln(s1);
end.
Не нашли ответ?
Похожие вопросы