Создайте и выведите на экран матрицу размера 5х5, где на главной диагонали стоят единицы, а прочие элементы равны 2. Получившуюся матрицу сохраните в текстовый файл.
Программное обеспечение Под программным обеспечением понимается совокупность программ, выполняемых вычислительной системой. К программному обеспечению относится также вся область деятельности по проектированию и разработке ПО. - Технология проектирования программ; - Методы тестирования программ; - Методы доказательства правильности программ; - Анализ качества работы программ; - Документирование программ; - Разработка и использование программных средств, облегчающих процесс проектирования программного обеспечения, и многое другое. Программное обеспечение – неотъемлемая часть компьютерной системы. Оно является логическим продолжением технических средств. Сфера применения конкретного компьютера определяется созданным для него ПО. Сам по себе компьютер не обладает знаниями ни в одной области применения. Все эти знания сосредоточены в выполняемых на компьютерах программах. Программное обеспечение современных компьютеров включает миллионы программ – от игровых до научных.
Const m=5; n=7; var a:array[1..m,1..n] of integer; i,j,amax:integer; p:real; begin Randomize; Writeln('Исходный массивэ'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(90)+10; Write(a[i,j]:3) end; Writeln end; {Задача 1} amax:=a[1,1]; for i:=1 to m do for j:=1 to n do if a[i,j]>amax then amax:=a[i,j]; Writeln('Максимальный элемент равен ',amax); {Задача 2} p:=1; for i:=1 to m do for j:=1 to n do if a[i,j] mod 2=0 then p:=p*a[i,j]; Writeln('Произведение четных элементов равно ',p); end.
Пример работы Исходный массивэ 94 20 49 80 70 55 40 62 74 71 51 88 10 76 68 11 11 74 96 50 69 98 34 25 93 52 53 61 68 85 35 15 77 78 97 Максимальный элемент равен 98 Произведение четных элементов равно 2.86826492979212E+33
m=5;
n=7;
var
a:array[1..m,1..n] of integer;
i,j,amax:integer;
p:real;
begin
Randomize;
Writeln('Исходный массивэ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3)
end;
Writeln
end;
{Задача 1}
amax:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>amax then amax:=a[i,j];
Writeln('Максимальный элемент равен ',amax);
{Задача 2}
p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 2=0 then p:=p*a[i,j];
Writeln('Произведение четных элементов равно ',p);
end.
Пример работы
Исходный массивэ
94 20 49 80 70 55 40
62 74 71 51 88 10 76
68 11 11 74 96 50 69
98 34 25 93 52 53 61
68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33