Предмет: Информатика,
автор: KatyVilochka
СРОЧНО!!!
Составить программу вычисления суммы положительных элементов массива C[1..22]
toxamactep:
На каком языке программирования надо написать программу?
Ответы
Автор ответа:
0
На каком языке программирования надо написать программу?
на языке Паскаля
program Project1;
var
c: array[1..22] of integer;
i, sum: integer;
begin
for i := 1 to 22 do begin
Write("Введите ", i, " число: ");ReadLn(c[i]);
end;
sum := 0;
for i := 1 to 22 do begin
if c[i] > 0 then sum := sum + c[i];
end;
WriteLn("Сумма всех положительных элементов массива равна ", sum);
end.
var
c: array[1..22] of integer;
i, sum: integer;
begin
for i := 1 to 22 do begin
Write("Введите ", i, " число: ");ReadLn(c[i]);
end;
sum := 0;
for i := 1 to 22 do begin
if c[i] > 0 then sum := sum + c[i];
end;
WriteLn("Сумма всех положительных элементов массива равна ", sum);
end.
Похожие вопросы
Предмет: Английский язык,
автор: Linza222
Предмет: Английский язык,
автор: natasha98123
Предмет: Русский язык,
автор: milenka2002
Предмет: География,
автор: kissdarya14
Предмет: Математика,
автор: gozka234