Помогите!!! Срочно!!! Составить программу. Сформировать массив из 8 элементов, вывести количество отрицательных чисел. Составить программу. Создать массив из 10 элементов случайным образом, найти сумму нечетных чисел. Писать на языке Паскаль,одномерный массив

Ответы:

Vlad Gokov

01-07-2015 22:08

program tref;var a,i:integer;mas:array[1..8]of integer;beginfor i:=1 to 8 dobeginmas[i]:=random(20)-10;writeln(mas[i]:3);if(mas[i]<0)then a:=a+1;end;writeln(a);end.program tref;var a,i:integer;mas:array[1..10]of integer;beginfor i:=1 to 10 dobeginmas[i]:=random(20)-10;writeln(mas[i]:3);if(mas[i]<0)then a:=a+mas[i];end;writeln(a);end.

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите!!! Срочно!!! Составить программу. Сформировать массив из 8 элементов, вывести количество отрицательных чисел. Составить программу. Создать массив из 10 элементов случайным образом, найти сумму нечетных чисел. Писать на языке Паскаль,одномерный массив» от пользователя Вячеслав Бердюгин в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!