Ответ: квадрат..............
10000+5000+600+90+4
ну это в сумме разрядных слогаемых, я не знаю подойдет или нет
Если 2 это делитель 7 то:7:2=3( ост.1)
Если сомневаешься то посмотри подсказку:
Делимое (7); делитель(2); частное(3); и остаток (1).
Немного исправил программу:
program Alex1;
var
a: array[1..10] of integer;
max, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
writeln('Исходный массив');
for i := 1 to 10 do
write(a[i], ' ');
max := a[1];
for i := 2 to 10 do
if a[i] > max then max := a[i];
for i := 1 to 10 do
if a[i] < 0 then a[i] := max;
writeln;
writeln('Новый массив');
for i := 1 to 10 do
write(a[i], ' ');
<span>end.</span>