Предмет: Информатика, автор: ProZaza

Помогите пожалуйста, написать программу в паскале!!! Срочно!!!

Дана действительная матрица размера m x n. Найти значение наибольшего по модулю элемента матрицы, а так же определить есть ли в матрице хотя бы один простой элемент.

Ответы

Автор ответа: ussrex
0
program matr;
uses crt;
const m=(число); n=(число);
var
a:array[1..m,1..n] of integer;
i, j:integer; max:real; k:boolean;

function prost(x:integer):boolean;
begin
prost:=false;
if x>0 then
if (x=1) or (x=2) then prost:=true else
for i:=2 to x-1 do
if mod(x, i) =0 then prost:=true;
end;

begin clr scr;

for i:=1 to m do begin
for j:=1 to n do begin
write(' a[i,j] = '); read(a[i, j]) end;
writeln
end;

max:=abs a[1,1];
k:=false;
for i:=1 to m do
for j:=1 to n do begin
if abs(a[i, j]) > abs(max) then max:= a[i, j];
if prost(a[i, j]) then k:=true
end;
writeln('Максимальный по модулю элемент равен ', max);
if k then wrteln('Матрица содержит хотя бы один простой элемент') else writeln('Матрица не содержит простых элементов');
readln
end.
Автор ответа: ProZaza
0
Все понял)))Спасибо большое)))
Автор ответа: ussrex
0
Да, пожалуйста. Пальчик вверх сделай, если не трудно :-)
Автор ответа: ProZaza
0
Уже)Еще раз спасибо!)
Автор ответа: ussrex
0
Не забудь, там где константы вводятся m и n вместо слова "число" должны стоять конкретные числа, из циферок, то бишь )
Автор ответа: ProZaza
0
Это я понял)
Похожие вопросы
Предмет: Литература, автор: emilive982
Прочитайте текст.
Кем я хочу стать в будущем?
В будущем я хочу стать врачом. Хочу помогать людям восстанавливать свое здоровье, лечить
заболевания, спасать от опасных болезней. Врачи нужны в любые времена, их помощь может
понадобится в любое время суток.
Это очень уважаемая профессия. Несмотря на то, что работа людей в белых халатах очень трудоемкая и
очень ответственная, она приносит много радостей, а именно от результата работы. Ведь излечивая
человека от тяжелой болезни, спасая его от верной смерти, порой целители радуются больше, чем даже
сам пациент.
Чтобы стать хорошим врачом, нужно много учиться и расширять свой кругозор, а также вести здоровый
образ жизни. Как доктор может говорить о здоровье, будучи сам нездоровым. Поэтому я занимаюсь
гимнастикой и плаванием, уделяю особое внимание биологии, также читаю интересные статьи о
медицине.Составить прастой план.Даю 50балов пажалуста​