Предмет: Информатика,
автор: artemkwerty
Помогите пожалуйста
Приложения:

artemkwerty:
Нужно написать программу на языке Pascal
Ответы
Автор ответа:
1
Щось типу такого:
const s = 10; // Размер массива
var
y,z:integer;
a: array [1..s] of integer;
i: integer;
begin
z:=0;
y:=0;
write('Введите элементы массива: ');
for i:=1 to s do
read(a[i]);
for i:=1 to s do
begin
if a[i]>0 then
z:=z+a[i]
else
y:=y+a[i];
end;
write('Вывод: ',z,y:4);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: bittirova831
Предмет: Русский язык,
автор: jvlastitchi
Предмет: Русский язык,
автор: Kate1604
Предмет: Химия,
автор: girl3211
Предмет: Математика,
автор: agatazamyatina