Вопрос по информатике:
Дан массив Р(5,5) из блока данных. Вывести массив на экран. Найти и вывести минимальный элемент среди элементов массива кратных 5.
- 22.03.2018 00:20
- Информатика
- remove_red_eye 8786
- thumb_up 24
Ответы и объяснения 1
Uses crt;
var a:array[1..5,1..5] of integer;
i,j,n,k:integer;
begin
randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
end;
writeln;
end;
n:=50;
for i:=1 to 5 do
for j:=1 to 5 do begin
if a[i,j] mod 5=0 then k:=a[i,j];
if k
writeln(Минимальный элемент кратный 5=',n);
end.
- 22.03.2018 23:51
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.