Срочно ПОМОГИТЕ ЭТО ПАСКАЛЬ!!! Массив 5 чисел,диапозон от 0 до 20.выстроить числа в массиве в порядке возрастания(отсортировать массив в порядке возрастания)
Срочно ПОМОГИТЕ ЭТО ПАСКАЛЬ!!!
Массив 5 чисел,диапозон от 0 до 20.выстроить числа в массиве в порядке возрастания(отсортировать массив в порядке возрастания)
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,n:integer;
begin
for a:=1 to 7 do
for b:=a+1 to 8 do
for c:=b+1 to 9 do
begin
n:=a*100+b*10+c;
write(n:4)
end;
end.
var
i,j,n:integer;
a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random*2-1;
write(a[i,j]:20:15);
if a[i,j]>=0 then n:=n+1;
end;
writeln;
end;
writeln('Количество неотрицательных: ',n);
end.
var
i,j,sum:integer;
a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
sum:=sum+a[i,j];
write(a[i,j]:4);
end;
writeln('sum=':8,sum);
sum:=0;
end;
end.
Не нашли ответ?
Похожие вопросы