Помогите пожалуйста!! Срочно надо! Кто понимает в Паскале? Написать программу которая вычисляет сумму только положительных чисел
5-9 класс
|
program summa;
var s:real; i:integer;
var a:array[1..10] of real;
begin
for i:=1 to 10 do
begin
writeln('vvedite- a[',i,']');
readln(a[i]);
end;
s:=0;
for i:=1 to 10 do
if a[i]>0 then
s:=s+a[i];
writeln('s=',s);
end.
если в массиве 10 элементов, то так
Другие вопросы из категории
1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100.
2) Составьте программу вычисления произведения чисел от 1 до 10.
3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.
Читайте также
Мне очень срочно надо!
Кто знает программу исполнитель "Стрелочка".
Скажите, пожалуйста, что в жизни напоминает стрелочку?
Водится возраст человека вывести имеет ли право человека голосовать (<=18) если не имеет то вывести сколько лет ему надо подождать
Водится возраст человека вывести имеет ли право человека голосовать (>=18) если не имеет то вывести сколько лет ему надо подождать
Составить программу для паскаля.
1) y=x^8
2) y=x^10