Предмет: Информатика,
автор: ddenik2005
Помогите пожалуйста четные номер 1!
Приложения:
ddenik2005:
Нужна программа Паскаль
Ответы
Автор ответа:
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.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: nasi
Предмет: Русский язык,
автор: nasi
Предмет: Русский язык,
автор: maksimka1236789
Предмет: История,
автор: stalkerdanil111
Предмет: Математика,
автор: KotSims