Дан целочисленный массив из 30 элементов.Вывести количество отрицательных,положительных и равных нулю элементов(массив записать в 1.txt)
5-9 класс
|
readln (n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then inc (p) else if a[i]=0 then inc(nu) else inc(o);
end;
writeln (p);
writeln (nu);
writeln(o);
readln
Другие вопросы из категории
1)Дан вес человека.Определить и вывести на экран, в какой весовой категории он окажется в боксе если; меньше 60 кг- легкий вес, от 60 до 75 средний вес, свыше 75 тяжелый вес.
2)Составить программу, которая спрашивает "Который час?" и в зависимости от ответа сообщает: "Доброй ночи","Доброе утро".Добрый день","Добрый вечер".
А)2*8=16
Б)MY FRIEND IS SCHOOLBOY
C)Ваня учится в школе
D)в английском алфавите 26 букв
E)6 MULTIPLAY 8 EQUAL 48
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
рут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде.Нужно паскаль
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Найти и вывести на экран номера двух элементов массива, наименее отличающихся друг от друга.
тест по информатике. Для получения положительной оценки за тест требовалось набрать не менее 20 баллов. Опишите на паскале алгоритм, который позволяет найти и вывести минимальный балл среди учащихся, получивших за тест положительную оценку.
на одном из языков программирования алгоритм, который подсчитывает и выводит средний балл учащихся, сдавших экзамен (получивших оценку более 20 баллов). Гарантируется, что хотя бы один ученик в классе успешно сдал экзамен.