Сегодня я публикую ещё один исходник программы на Pascal, ведь мы же программируем на паскале? Итак, сегодня я помогу вам составить программу в паскале, задача которой - это подсчёт количества элементов в одномерном массиве, которые меньше своего номера. Просмотреть исходный код, а также скачать уже готовый исходник рабочей программы, Вы можете далее.
Исходный код программы:
Var a:array[1..100] of integer; //Описание переменных
i,k, n:integer;
Begin //Начало программы
read(n); //Считывание размерности
k:=0;
For i:=1 to n do //Задание массива
begin
a[i]:=random(10);
if a[i]<i then k:=k+1; //Подсчёт чисел
write(a[i],' ');
end;
writeln;
write('Итого: ',k); //Вывод результата
end. //Конец программыКак вы видите, всё очень даже просто и легко!
Скачать исходник: kolvonumber.pas
Совет!
Если у вас сломалась или вышла из строя газонокосилка, то вам нужно её отремонтировать! Ремонтировать самому сложно, долго, а также не факт, что вы её почините. Есть много компаний, которые делают ремонт газонокосилок в Москве и в других городах. Ремонт стоит не дорого, а время - это деньги.