Помогите! Упрашиваю! Найдите сумму всех отрицательных чисел. Посчитать число частей со
Помогите! Упрашиваю! Найдите сумму всех отрицательных чисел. Посчитать число частей со значением 0.5 (ПАСКАЛЬ)
Задать свой вопрос
Ангела Хмелевцева
и из чего их искать?
Людмила Абидулина
вводится последовательность чисел?
1 ответ
Олег Кучерюк
Const
handsfree = true;
var
a: array[1..100] of real;
i, n, j, count: integer;
sum: real;
begin
ввод массива
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := (random(10) - 5) * 0.5;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
подсчет суммы и кол-ва
sum := 0;
count := 0;
for i := 1 to n do
begin
if a[i] lt; 0 then
sum := sum + a[i];
if a[i] = 0.5 then
count := count + 1;
end;
writeln('count = ', count);
writeln('sum = ', sum);
end.
handsfree = true;
var
a: array[1..100] of real;
i, n, j, count: integer;
sum: real;
begin
ввод массива
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := (random(10) - 5) * 0.5;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
подсчет суммы и кол-ва
sum := 0;
count := 0;
for i := 1 to n do
begin
if a[i] lt; 0 then
sum := sum + a[i];
if a[i] = 0.5 then
count := count + 1;
end;
writeln('count = ', count);
writeln('sum = ', sum);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов