Ответы
Ответ дал:
0
Ответ: 2-я задача
program Example2a;
var
n, i, imax: Integer;
a: array of Integer;
begin
Write ('Введите количество элементов массива (N <=10): ');
ReadLn (n);
if n <= 10 then begin
SetLength (a, n);
Write ('Введите массив: ');
for i := Low (a) to High (a) do
Read (A [i]);
imax := 0;
for i := Low (a) to High (a) do
if A [i] > A [imax] then
imax := i;
A [imax] := 0;
WriteLn;
for i := Low (a) to High (a) do
Write (A [i], ' ');
end else
WriteLn ('Количество превышает 10');
ReadLn;
end.
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад