| ← Январь 2020 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
12
|
|
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
|
20
|
22
|
23
|
24
|
25
|
||
|
27
|
28
|
29
|
30
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 21.01.2020, 22:34 Консультирует puporev (Профессионал): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код var a:array[1..10,1..10] of integer;
n,m,i,j,min:integer;
begin
repeat
writeln('Введите размеры массива n,m от 2 до 10');
readln(n,m);
until(n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива целые числа');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
if i+j=2 then min:=a[i,j]
else if a[i,j]<min then min:=a[i,j];
end;
writeln('Введенный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
write('Наименьший элемент=',min);
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
