(50×3)×5=750 Я сама не знаю,предполагаю!
Const N = 10;
var i, max: integer;
a: array[1..N] of integer;
begin
max := 1;
writeln('Массив до: ');
for i := 1 to N do begin
a[i] := random(10);
write(a[i]:3);
if(a[i] > a[max]) then max := i;
end;
writeln(#10, 'Массив после: ');
for i := 1 to N do begin
if(a[i] > 1) and (a[i] < 4) then a[i] := a[max];
write(a[i]:3);
end;
writeln(#10, 'Максиммальный элемент: ', a[max], #10, 'Его индекс: ', max);
end.
Учитывая, что там какой-то чел скинул программу на питоне третьем, то я тоже скину третьем питоне, только гораздо короче
n = int(input())
arr = [*map(int, input().split())]
for i in arr:
if i > 0:
print(i, end=' ')
По вертикали:
1. Информация
По горизонтали:
1. Редактирование
2. Фрагмент
<span>3. Шрифт </span>
<span>4. Форматирование </span>
<span>5. Процессор</span>
<span>6. Документ </span>
<span>8. Центрирвание </span>
<span>9. Копирование</span>
var
a,b : integer;
begin
writeln('введите 1 число ');
readln(a);
writeln('введите 2 число');
readln(b);
if a>b then
begin
y:=a+1;
writeln('1 число больше',y)
else
begin
y:=b+1;
writeln(' 2 число больше ',y);
end;
end;
end.