Задание 2. Что будет выведено на экран в результатеvara : array
Задание 2. Что будет выведено на экран в итоге
var
a : array (1..20) of integer;
i, m, n, x: integer;
begin
for i:= 1 to 20 do begin
a (i) : = (i + 4) mod 5;
end;
m := a (1);
n := a (1);
for i:= 1 to 20 do begin
if a[i] gt; m then
m := a[i];
if a (i) lt; n then
n := a[i];
end;
x := (m - n) mod 5;
for i:= 1 to 20 do begin
if a[i] = x then
write(i, ' ');
end;
end.
Ответ:
for i:= 1 to 20 do begin
a (i) : = (i + 4) mod 5;
end;
Здесь массив забивается числами от 0 до 4
for i:= 1 to 20 do begin
if a[i] gt; m then
m := a[i];
if a (i) lt; n then
n := a[i];
end;
Здесь ищем Макс(м) и мин(н) этого массива, они окончательно равны 4 и 0 соответственно.
Х=(m - n) mod 5=(4 - 0) mod 5=4
for i:= 1 to 20 do begin
if a[i] = x then
write(i, ' ');
end;
Тут через пробел выводиться номера элементов, чье значение совпадает с х. А это 1 6 11 16
Вот и ответ: 1 6 11 16
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.
Разные вопросы.
Алгебра.
Алгебра.