Пожалуста!!!!!!!!!!!!!!!!!!!!!!ОЧ срочно!!!!!! Написать программу на паскале, которая вводит
10-11 класс
|
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
var a: array[1..100] of integer;
n, i: integer;
begin
write('Введите количество элементов массива');
readln(n);
write('Вводите элементы массива отделяя их клавишей "Enter"');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<0 then write('число ', a[i], ', номер ', i,'; ' );
end.
Другие вопросы из категории
Например: если я ввожу 2 должно выйти март
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
произведение.
Буду очень благодарна!
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
http://primat.org/index/0-128 вот сайт что бы написать программу.