4. Описание программы
Program Prog41;; (Заголовок и имя программы)
uses crt;
Var (Раздел объявление типа переменного типа)
mas:array[1..100,1..100] of integer;(Квадратичный массив ,целых чисел)
X:array[1..100] of integer; (Линейный массив целых чисел)
M,i,j,max,min,t,P,Index:integer; (Переменные)
ch:char; (переменные системы Чарп)
Begin (начало программы)
write('Vvedite M='); (Вывод надписи на экран)
Readln (М); (Ввод элемента)
for i:=1 to M do begin (Начало цикла)
for j:=1 to M do begin
write('mas[',i,'][',j,']= '); (Вывод массива на экран)
read(mas[i][j]); (Ввод массива)
end; (Конец цикла I)
end; (Конец цикла J)
for i:=1 to M do begin (Цикл для М)
for j:=1 to M do (Цикл по выводу элементов на экран )
write(mas[i][j],' '); (Вывод массива на экран)
writeLn('');
end; (Конец цикла)
for i:=1 to M do begin (Начало цикла, по присвоению ………………………Max - значения, массиву (mas[i] [j]) и линейному (Х[i]))
max:=mas[i][1]; (Max,присвоение массиву)
for j:=1 to M do begin (Начала цикла)
if mas[i][j]>=max then (Если массив менше равно Мах )
max:=mas[i][j]; (Присвоение Мах,массиву)
end; (Конец цикла)
X[i]:=max; (Присвоение массива)
end; (Конец цикла)
t:=i+1; (Присвоение t)
for j:=1 to M do begin (Цикл присвоению минимального значения , квадратичного массива)
min:=mas[1][j];
for i:=1 to M do begin (Начало цикла)
if mas[i][j]<=min then (Если квадратичный массив меньше – равен минимуму ,то)
min:=mas[i][j];
end; (Конец цикла(J))
X[t]:=min;
t:=t+1;
end; (Конец цикла (t))
write('Iskomui lineinui masiv= '); (Вывод искомого линейного массива на экран)
for i:=1 to M*2 do (Цикл по подготовки массива на экран)
write(X[i],' ');
writeLn('');
P:=1; (Присвоение преременной)
for i:=1 to M*2 do begin (Цикл переменной)
if X[i]>0 then (Условие ,если массив меньше нуля)
P:=P*X[i];
end; (Конец цикла)
writeLn('Proizvedenie= ',P); (Вывод на экран)
max:=X[1]; (Присвоение массиву Max)
for i:=1 to M*2 do begin (Начало цикла)
if X[i]>=max then begin (Условие для нахождения Max в массиве)
max:=X[i]; (Присвоение МАХ значения)
Index:=i; (Присвоение Index)
end; (Конец цикла(M))
end; (Конец цикла(I))
writeLn ('Minemalno ydolennoe 4islo= ',max); (Подготовка вывода массива на экран)
write('Poly4ennui massiv= '); (Вывод полученного массива на экран)
for i:=1 to M*2 do begin (цикл для нахождения М*2 элемента массива, по выводу массива на экран)
if i<>Index then (Условие если в массиве i<>Index то… )
write(X[i],' '); (Вывод массива на экран)
end; (Конец цикла)
readln(ch); (Ввод переменной)
end. (Конец программы)