Написать программу вывода на экран отрицательных элементов массива и суммы положительных элементов
38
ОТВЕТЫ
Program n1;
const n=6;
var a: array [1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write(введите ,i, число: );
readln(a[i]);
end;
writeln(вывод отриц. элементов: );
for i:=1 to n do
if a[i]gt;=0 then sum:=sum+a[i] else writeln(a[i]);
writeln(сумма положительных: ,sum);
end.
const n=6;
var a: array [1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write(введите ,i, число: );
readln(a[i]);
end;
writeln(вывод отриц. элементов: );
for i:=1 to n do
if a[i]gt;=0 then sum:=sum+a[i] else writeln(a[i]);
writeln(сумма положительных: ,sum);
end.
Вроде так, это бэйсик
145
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Державин
Информатика 6 класс задание 5
ДАМ 20 баллов ...
2019-05-24 10:31:16
Shataur
Решите пожалуйста 2,4 номера ...
2019-05-24 10:29:21
Thoril
Дайте краткую характеристику режимов формирования электронных таблиц. ...
2019-05-24 10:29:03
Остафий
Перечислите операции , относящиеся к редактированию текста ...
2019-05-24 10:28:01