Ответ 1 , здесь не указан вес товара .
а что означает нижний ряд цифр , у вас не понятно.
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.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var (a,b):=ReadReal2;
if a<>b then Writeln(Min(a,b))
else Writeln('РАВНЫ')
end.
<u>№2</u>
begin
var (a,b):=ReadInteger2;
if a.IsEven then Write(a,' ');
if b.IsEven then Write(b,' ');
if a.IsOdd and b.IsOdd then Writeln('НЕТ')
end.
1) Презентация PowerPoint.pptx
2) 2,87 МБ (3 016 484 байт)
3) Мой компьютер - Локальный диск D - Презентации
4) 9/04/15
1) 1/1024 Мб=1 кб 1000 байт меньше
2) 5500000б больше 512 кб, но меньше 1Мб
3)13 байт 1/16 Кб =64 б
4)<span>600000 Мб больше 512Гб(1/2Тб)
</span>5)<span>2000000000 байт =2Гб т.е. больше 1Гб, но меньше 1Тб</span>