Предмет: Информатика,
автор: Розывогороде
Вариант 1.
1. Дан линейный массив A[1..N], содержащий целые числа. Посчитать сумму положительных чисел и распечатать номера таких чисел.
Ответы
Автор ответа:
1
const N=20;
var a:array[1...N] of integer;
s,i:integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
s:=0;
for i:=1 to N do begin
if a>0 then begin
s:=s+a;
write (i);
end;
end;
write (s);
end.
var a:array[1...N] of integer;
s,i:integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
s:=0;
for i:=1 to N do begin
if a>0 then begin
s:=s+a;
write (i);
end;
end;
write (s);
end.
Похожие вопросы
Предмет: Алгебра,
автор: ewgeniu44
Предмет: Математика,
автор: kseniastrukova86
Предмет: Алгебра,
автор: graknf
Предмет: Математика,
автор: мария8630
Предмет: Математика,
автор: konkovasofija