Задача № 1)
Код программы получился довольно таки большой , но можно сам файл *.pas Закинуть в интернет и оттуда скачать.
Задача №2)
uses crt;
var m:array[1..100,1..100] of integer;
i,i1,j,str,stb,temp:integer;
begin
clrscr;
writeln('Пожалуйста введите число строк массива: '); readln(str);
writeln('Пожалуйста введите число Столбцов массива: '); readln(stb);
clrscr;
writeln('Массиа из ',str,' строк, и из ',stb,' столбцов успешно создан!');
<span>writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
m[i,j]:=random(80)+1;
write(m[i,j]:3,' ');
end;
writeln;
end;
writeln;
writeln(' отсортирован по убыванию');
writeln;
for i1:=1 to str do
for i:=1 to str-1 do
for j:=i+1 to str do
if m[i1,i]<m[i1,j] then begin temp:=m[i1,i]; m[i1,i]:=m[i1,j]; m[i1,j]:=temp;end;
writeln;
for i:=1 to str do
begin
for j:=1 to stb do
begin
write(m[i,j]:3,' ');
end;
writeln;
end;
readkey;
<span>end.
Запускаешь водишь строк и столбцов после нажимаешь Enter программы сделает своё дело</span></span>
Пусть нужно узнать, где будет напечатана строка с номером n. Для предыдущих (n - 1) строк нужно (n - 1) div k полных страниц и ещё (n - 1) mod k строк на ((n - 1) div k + 1)-ой странице. n-я строка будет следующей на этой странице.
var
n, k, fullPages, restLines: integer;
begin
write('Номер строки: ');
readln(n);
write('Строк на странице: ');
readln(k);
fullPages := (n - 1) div k;
restLines := (n - 1) mod k;
writeln('Страница: ', fullPages + 1, ', строка: ', restLines + 1);
end.
1.
<u>алг</u> сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
<span><u>кон</u>
2.
</span><u>алг</u> произведение
нач цел mult=1,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
mult:=mult*a[i]
кц
вывод mult
<u>кон</u>
3.
<u>алг</u> максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
<span><u>кон</u></span>