Предмет: Информатика,
автор: doshik93
СРОЧНО
В ЧЕМ ОШИБКА И ЧТО НЕ ПРАВИЛЬНО???
Приложения:
nkolyan89:
1) Один "End." лишний
2) Программа у тебя считает сумму чётных чисел, причёем здесь среднее арифметическое не понятно. Предпоследняя строка должна выглядеть так Writeln('сумма четных чисес = ' , s);
Ошибка, не чётных, а каждое второе. В чём смысл программы? Задача?
Переменная s нигде не объявлена
Ответы
Автор ответа:
0
var a: array [1..100] of real;
i,n: integer;
begin
writeln('Введите число');
readln(a[i]);
s:=0;
for i:=1 to n do
if i mod 2 = 0 then s:=s+a[i];
writrln('Найти среднее арифметическое ',s);
end.
Но сама программа неправильно написана... Она не будет вычислять среднее арифметическое четных элементов массива
i,n: integer;
begin
writeln('Введите число');
readln(a[i]);
s:=0;
for i:=1 to n do
if i mod 2 = 0 then s:=s+a[i];
writrln('Найти среднее арифметическое ',s);
end.
Но сама программа неправильно написана... Она не будет вычислять среднее арифметическое четных элементов массива
Похожие вопросы
Предмет: Геометрия,
автор: Angelinaafonin1
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: fredivkid
Предмет: Литература,
автор: арен3
Предмет: Математика,
автор: Аноним