1. Информатика
  2. ПАСКАЛЬ Дан целочисленный

ПАСКАЛЬ Дан целочисленный массив А(30)
Найти количество элементов, больших первого элемента
, напишите полностью программу

Diana111111112 Diana111111112    1   15.05.2021 12:58    0

Ответы
dasha8743 dasha8743  14.06.2021 13:00

program k;

var m:array [1..30] of integer;

i,k:integer;

begin

k:=0;

for i:=1 to 30 do

begin

m[i]:=random(10);

write(m[i],' ');

if m[i]>m[1] then k:=k+1

end;

writeln;

write(k)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sergeygrachev sergeygrachev  24.10.2020 10:02
С ресурсов сети интернета Найдите дополнительную информацию о происхождение слова алгоритм​...
MrArt1k01 MrArt1k01  24.10.2020 10:03
Определите, что будет напечатано в результате выполнения следующего скрипта: s = 25 if s % 2 != 0: s = s – 1 k = s / 2 else: k = s print(k)...
макс3069 макс3069  24.10.2020 10:05
Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer;Begin s := 0; for k := 4 to 8 do s := s+7; writeln(s);End. Определите, что будет...
малыш008 малыш008  25.05.2020 17:59
Имеется ромб с диагоналями d1 и d2. Изобразите этот ромб в консоли при знаков *. Язык программирования - C#....
xomahgf xomahgf  25.05.2020 17:59
Задача 3: Ремонт забора Забор состоит из N одинаковых вертикальных досок. Некоторые из досок сгнили и нуждаются в замене, для каждой доски известно, нужно ли её заменить....
valdan2008 valdan2008  09.07.2019 09:40
Разберите программу,которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 10 и выводит на экран индексы элементов с чётными значениями...
LopsterId1236543 LopsterId1236543  09.07.2019 09:40
Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке (200,200) радиусами 30, 40 , 50 , 60 , 70 . pascal abc...
khadija7 khadija7  09.07.2019 09:40
Паскаль. написать программу которая после введения месяца, выводит на экран количество дней этого месяца...
888DeLtApLaN888 888DeLtApLaN888  10.08.2019 23:00
Для хранения растрового изображение размером 32×32 пикселя отвели 512 байтов памяти.каково максимальное возможное число оттенков в монохромном спектре...
vodzinskiyaleksandr vodzinskiyaleksandr  13.09.2021 19:02
Отметить на координатной плоскости точка A(3; 0); B(0; -6); C(2; 4); D(-5; -2)...

Популярные вопросы