Ребят,пожалуйста 5,6,7,кто сколько сможет,буду очень благодарен.
5-9 класс
|
Var a:array [1..50,1..50] of integer;
i,j,k,n,m,l:integer;
o:array[1..50] of integer;
begin
writeln ('Введи размерность массива');
readln (n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(21)-10;
write (a[i.j]:4);
end;
writeln;
end;
a) for j:=1 to n-1 do
if a[1,j]>a[1,j+1] then
begin
m:=a[1,j];
a[1,j]:=a[1,j+1];
a[1,j+1]:=m;
end;
b) for i:=n downto 1 do begin
l:=l+1;
o[l]:=a[i,3];
end;
for J:=1 to n do
a[j,3]:=o[j];
Другие вопросы из категории
двумя взвешиваниями на чашечных весах без гирь?
2)инструкция по настройке каналов телевизора
3) список класса
4)стихотворение
5)каталог библиотеки
Читайте также
пожалуйста готовый, не сложный для того, чтобы выучить алгоритм. Буду очень благодарен.
несколько!!!!!!!!!!!!!!!!!!!!!!!!
Определите доменное имя компьютера, зарегистрированного в домене верхнего уровня ru, домене второго уровня schools и имеющего собственное имя www. 1) www.schools.ru 2) schools.www.ru 3) http:// www.schools.ru 4) www. schools.imya.ru.
Определите адрес Web - страницы, хранящейся на сервере Интернета, зарегистрированном в домене верхнего уровня ru, домене второго уровня schools и имеющем собственное имя www. 1) www.schools.ru 2) schools.www.ru 3) http:// www.schools.ru 4) www. schools.imya.ru.
только нужно не просто ответ, а с решением