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

Помогите пожалуйста четные номер 1!

Приложения:

ddenik2005: Нужна программа Паскаль
Btikirov: пояснения нужны?

Ответы

Автор ответа: Btikirov
1

Ответ:

program chisla;

const n = 10; // создаем константу для массива

var a : array[1..n] of integer; // создаем массив

i : integer; // создаем переменную i для циклов

Begin

 randomize; // подключаем randomize

 for i:=1 to n do // создаем цикл для заполнения и вывода массива

   begin // т.к. действий много нужны begin и end;

     a[i]:= -10 + random(21); // заполняем массив a

     write(a[i],'  '); // выводим массив a

   end;

 writeln; // переходим на новую строку

 for i:=1 to n do // создаем цикл для вывода отрицательных элементов

   if (a[i]<0) then // если элемент <0 то выводим

     write(a[i],'  '); // выводим отрицательные элементы

end.

Объяснение:

Похожие вопросы
Предмет: История, автор: stalkerdanil111