ПАСКАЛЬ АБС! СРОЧНО! ПОМОГИТЕ ПОЖАЛУЙСТА!1. напишите программу формирования массива размером 5*5 с помощью датчика случайных чисел. Замените в нем нечетные значения элементов максимальным. Выведите на экран исходный и измененны...
ПАСКАЛЬ АБС! СРОЧНО! ПОМОГИТЕ ПОЖАЛУЙСТА!
1. напишите программу формирования массива размером 5*5 с помощью датчика случайных чисел. Замените в нем нечетные значения элементов максимальным. Выведите на экран исходный и измененный массивы.
2. Составьте программу формирования и вывода на печать одномерного массива, состоящего из максимальных элементов строк двумерного массива, заданного с помомщью датчика случайных чисел
Гость
Ответ(ы) на вопрос:
Гость1)
var a:array [1..5,1..5] of integer;
i,j,max:integer;
begin
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(9)+1;
write (a[i,j]:2);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]>max then max:=a[i,j];
writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if a[i,j] mod 2 = 1 then a[i,j]:=max;
write (a[i,j]:2);
end;
writeln;
end;
end.
2)
var a1:array [1..5,1..5] of integer;
a2:array [1..5] of integer;
i,j,k,max:integer;
begin
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a1[i,j]:=random(9)+1;
write (a1[i,j]:2);
end;
writeln;
max:=a1[i,1];
for k:=2 to 5 do
if a1[i,k]>max then max:=a1[i,k];
a2[i]:=max;
end;
writeln;
for i:=1 to 5 do write (a2[i]:2);
end.
Не нашли ответ?
Похожие вопросы