Решение задач

[Judo]

1. Создайте массив A[1..12] вещественных чисел с помощью генератора случайных чисел и выведите его на экран. Отсортировать по убыванию и вывести полученный миссив на экран

2.Составте программу, упорядочивающую по убыванию элементы каждого столбца матрицы размером m*n(размер матрицы вводится с клавиатуры, но не более 10). Массив заполнить случайными целыми числами от 0 до 20.

3. Написать программу, которая рисует восход и закат солнца.

Помогите сделать задачи пожалуйста

[Hacker19_90]

Покажите наработки!
Ну а мы поможем.

[Ghost of Night]

В чем проблема?) Такие задачи в 9 классе на уроках информатики разбираются

[Judo]

Если бы это была так легко я наверна сдесь бы неотписвал )) раз для вас легко помагити решить)

[Ghost of Night]

Мы программеры и другая "нечисть", которая живет на этом форуме очень ленивые существа)
Назовите хотя бы несколько причин, почему мы должны вам помогать?

[Aranea tela telam]

1
Program Massiv_Readln;

Uses crt; // подключаем модули

Type
mat = array [1..100] of real ;

procedure swap(var x,y:real);
var t:real;
begin
t:=x; x:=y; y:=t;
end;

var
a:mat; // переменная массива
i,n,j:integer; // переменная I вводится как индекс массива

begin // начало основной программы

clrscr; // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
Write('Размер массива (до 100) - ');readln(n); // вводим размер одномерного массива
randomize;
For i:=1 to n do
a[i]:=random*10;

//------------------------------------------------------------------------------ // вывод массива 'A'
Write('Отсортированный массив: ');
For i :=1 to n do
For j:=1 to n-1 do
If a[j]<a[j+1] then swap(a[j],a[j+1]);
For i:=1 to n do
write(a[i]:0:2,' ');


readkey; // читает символ из буфера клавиатуры.

end.

2

uses crt;
const nmax=10;
var a: array [1..nmax,1..nmax] of integer;
n,m,i,j,k,buf: integer;

begin
writeln ('Размер матрицы, не больше ',nmax,':');
repeat
write ('n= ');
readln (n);
until (n>0) and (n<=nmax);
repeat
write ('m= ');
readln (m);
until (m>0) and (m<=nmax);
writeln ('Дана матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(41)-20;
write (a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
while k<=n do
begin
for i:=1 to n-1 do
if a[i,j]<a[i+1,j] then
begin
buf:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=buf;
end;
inc(k);
end;
k:=0;
end;
writeln ('Матрица с упорядоченными столбцами');
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:4);
writeln;
end;
end.

Гугл творит чудеса!

[Poma][a]

Гугл творит чудеса!

тогда ты бы нашел что человеку с этип ником написавшме сообщение в такое же время на другом форму уже ответили.

З.Ы. и научись ставить #

[Aranea tela telam]

Сообщение от Poma][a

тогда ты бы нашел что человеку с этип ником написавшме сообщение в такое же время на другом форму уже ответили.

З.Ы. и научись ставить #

Согласен не посмотрел).