Подсчитать колво цифр(чисел) не отрицательных среди N-произвольных и вывести на экран
5-9 класс
|
var a:array[1..100] of integer;
i,n,k:integer;
begin
k:=1;
read(n);//Вводите количество самих элементов
for i:=1 to n do begin//Ввод самих элементов
read(a[i]);if a[i]>=0 then k:=k+1;//Подсчет элементов >0
end;
writeln('Количество не отрицательных элементов=',k);//Вывод
readln;
end.
Другие вопросы из категории
страниц.сколько символов в строке?
о есть буква "я" переходит в букву "г".
Расшифруйте слова и выберите те из них, которые обозначают устройства, входящие в состав персонального компьютера.
1)УФЕЪИХХТФ
2)МСЦИЖФДП
3)УПДЦД
4)ЗМХО
5)УФТМЁТЗСДГ
6)УТПИ
результате информационный объем сообщения стал равен 2 Мбайта. Найдите кол-во символов в сообщении
Читайте также
тов.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!с помощью паскаля, а числа задавать можно любым способом.
квадрат этого числа.№2.определить впишется ли квадрат в круг.
данных Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.
3.Определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на 5 и 21 одновременно.
4.спортсмен пробежал в 1-ый день тренеровки расстояние 10 км. В каждый следующий день он робегал на 3 км больше ,чем в предыдущий. Определить Суммарное расстояние.
5. в Пионерском лагере n отрядов с различным количеством детей. Сколько всего детей в пионерском лагере?
элементов (работа в паскаль). Я просто тему пропустила, а объяснять не хотят :(