Предмет: Информатика, автор: artemkwerty

Помогите пожалуйста

Приложения:

artemkwerty: Нужно написать программу на языке Pascal
dice2057: Это всё условие кторое есть, только схема?
artemkwerty: Да
artemkwerty: Нужно написать произвольную программу по этой схеме
artemkwerty: На языке Паскаль
dice2057: Подходит?)

Ответы

Автор ответа: dice2057
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.


dice2057: Немного подправил.
artemkwerty: Ок
artemkwerty: Спасибо большое
Похожие вопросы
Предмет: Математика, автор: agatazamyatina