Uses crt; const q=1000;var a:array[1..q,1..q]of integer; m,n,i,j,c,k,buf:integer; b:array[1..q]of integer; begin writeln('n,m ?') ; readln(n,m); writeln('как заполнять матрицу ?'); writeln(' Нажмите 1 при датчика, 2 - ввод с клавиатуры'); {выбор действия при заполнении} readln(c); case c of 1:for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; 2: begin for i:=1 to n do begin for j:=1 to m do readln(a[i,j]); end; clrscr; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end; end; writeln('формирование массива'); for i:=2 to n do begin if i mod 2=0 then for j:=1 to m do if a[i,j]>2 then begin k:=k+1; b[k]:=a[i,j]; end; end; writeln; for i:=1 to k do write(b[i]:4); writeln; {сортировка} for i:=1 to k -1 do for j:=i+1 to k do if b[i]<b[j]then begin buf:=b[i]; b[i]:=b[j]; b[j]:=buf; end; {вывод массива} for i:=1 to k do write(b[i]:4); end.
Створити масив дійсних чисел від 1 до 5. Знайти мінімальне та максимальне значення. Знайти сумму мінімального та максимального значення.
Объяснение:
0 строка - оголошення процедури
1 строка - оголошення зміних та надання їм типу цілих чисел
2 -оголошення масиву
3- оголошення змінних та надання їм типу дійсних чисел
4-початок
5-
6-цикл з лічильником та присовення знінній і значення 0
7-перетворення масиву у з рядкового типу у дійсний
8-
9-цикл з лічильником та присовення змінній і значення 1
10-перетворення з рядкового типу у цілі числа
11- перетворення з дійсного типу у рядковий
12-кінець
13-
14-присвоення змінній значення
15-присвоення змінній значення
16-присвоення змінній значення
17-цикли з лічильником та присвоення змінній і значення 2
18-умова при виконанні якої max:=А[i]
19-
20-цикли з лічильником з присвоєнням змінній і значення 1
21-умова при виконанні якої min:=А[i]
22-
23-
24-кінець
25- присвоєння рядкового типу
26-
27-знаходження сумми
28-
29-присвоєння рядкового типу
30-
31-кінець
const
q=1000;var
a:array[1..q,1..q]of integer;
m,n,i,j,c,k,buf:integer;
b:array[1..q]of integer;
begin
writeln('n,m ?') ;
readln(n,m);
writeln('как заполнять матрицу ?');
writeln(' Нажмите 1 при датчика, 2 - ввод с клавиатуры');
{выбор действия при заполнении}
readln(c);
case c of
1:for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
2:
begin
for i:=1 to n do
begin
for j:=1 to m do
readln(a[i,j]);
end;
clrscr;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end;
end;
writeln('формирование массива');
for i:=2 to n do
begin
if i mod 2=0 then
for j:=1 to m do
if a[i,j]>2 then
begin
k:=k+1;
b[k]:=a[i,j];
end;
end;
writeln;
for i:=1 to k do
write(b[i]:4);
writeln;
{сортировка}
for i:=1 to k -1 do
for j:=i+1 to k do
if b[i]<b[j]then
begin
buf:=b[i];
b[i]:=b[j];
b[j]:=buf;
end;
{вывод массива}
for i:=1 to k do
write(b[i]:4);
end.