В классе 15 учеников, их рост считайте случайным образом из диапазона от 150 до 200 см. Отсортируйте их рост по убыванию и выведите тех чей рост ниже 170 см.
Сделайте убывание:
program z_2;
const
n=15;
var
i, t : integer;
a: array [1..50] of integer;
begin
for i:= 1 to n do
begin
a[i]:= random(51)+150;
writeln('Рост ', i, ' - ', a[i]);
if a[i]>=170 then t:=t+1
end;
writeln(t, ' учеников 170+.')
end.
Только первых три
Задача 1:
var p: array[1..10] of integer;
i:integer;
count:integer;
begin
for i:=1 to 10 do read(p[i]);
write('Сколько цифр массива хотите видеть? -> ');
readln(count);
for i:=1 to count do write(p[i]:3);
end.
Задача 2:
var arr: array[1..10] of integer;
i:integer;
s:integer;
count:integer;
begin
for i:=1 to 10 do
begin
arr[i]:=Random(-10,10);
if(arr[i]<0) then
begin
writeln(arr[i]:4);
s:=s+arr[i];
count:=count+1;
end;
end;
writeln('Среднее значение = ', s/count);
end.
Задача 3:
var arr: array[1..10] of integer;
i:integer;
crat:integer;
id:integer;
begin
for i:=1 to 10 do
begin
read(arr[i]);
crat:=arr[i] mod 3;
if(crat = 0) then
begin
id:=arr[i];
if(arr[i] = id) then writeln('Id = ', i:2);
end;
end;
end.