срооооооочноооо....плиииз......составить программу дан массив с пятью случайными числами в интервале [5..8]. Найти количество элементов больших чем
10-11 класс
|
6
var
a:array[1..5] of integer;
i,b:integer;
begin
b:=0;
for i:=1 to 5 do
a[i]:=random(4)+5;
for i:=1 to 5 do
if a[i]>6 then b:=b+1;
write(b);
end.
Другие вопросы из категории
количество страниц в тесте
Почему пишет неизвестный идентификатор.
var a,b:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(a,b);
writeln(a+b);
close(input);
close(output);
end.
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
1) Составить программу, проверяющую, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей, кроме самого этого числа.
2) Напечатать числа в виде следующей таблицы:
5 5 5 5 5
6 6 6 6
7 7 7
8 8
9