заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры
5-9 класс
|
program z1;
var a:array[1..100] of integer;
i,j,n:byte;
begin
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(900)+100;
end;
for j:=0 to 9 do begin
for i:=1 to n do begin
if ((a[i] div 10) mod 10)=j then begin
write(a[i],' ')
end
end
end;
readln
end.
Другие вопросы из категории
программу для следующих исходных данных a) a=5 b=100 b) a=3 b=100 c) a=11 b=98
Читайте также
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1.Заполните массив случайными числами в интервале [0;100] и подсчитайте отдельно среднее значение всех элементов,которые меньше 50, и среднее значение всех элементов,которые больше или равны 50.
2.Заполнить массив случайными числами в интервале [0;5]. Определить, есть ли в нем элементы с одинаковыми значениями,стоящие рядом.
3. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и во второй половине.
Заполнить массив случайными числами в интервале от -10 до 10 и выполнить инверсию отдельно для 1 и 2 части.
Пример:
1 -2 6 -8 -3 | 5 -7 1 0 -4
-3 -8 6 -2 1 | -4 0 1 -7 5
знак у каждого элемента массива. Распечатать. Посчитать количество отрицательных и положительных