ввести с клавиатуры массив из 5 частей ,найти в среднее арифметическое
Ввести с клавиатуры массив из 5 частей ,найти в среднее арифметическое всех отрицательных частей массива.
Задать свой вопрос2 ответа
Аделина Плоткина
Ответ:
program xxxxx;
uses crt;
var
k,i:integer;
s:real;
a:array[1..5] of integer;
begin
for i:=1 to 5 do
begin
readln(a[i]);
if a[i] lt; 0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
if k=0 then writeln('error')
else writeln(s/k);
end.
Объяснение:
Былиняк
Таисия
Почему Вы делите на 5 в конце?
Надежда Корст
И где Вы объявили s?
Anastasija Pavkin Zhilenkova
про 's' не знаю вроде объявлял, а на 5 поэтому что среднее арефмитическое
Светлана
Вы считаете сумму только отрицательных чисел, а делите всегда на 5.
Арсений Кубацкий
Хорошо, но почему сейчас k-1? У Вас в начале программы k=0 и к концу представляет количество отрицательных чисел, для чего еще отымать 1?
Иван Лынник
почему 0? по умолчанию разве не один?
Виктор Крутилкин
Обычно все integer'ы создаются с нулем.
Каменихина
Агата
К слову, у Вас end незакрытый. Вы вообщем код собственный инспектировали перед отправкой?
Невичихина
Кира
А что с "if k=1"?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Облако тегов