256 = 2^8
3*96 * 4*96 * 8 = 884736 бит
884736 бит / 8 = 110592 байт / 1024 = 108 Кбайт
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
Файл - это пакет, вместилище
Документ - это содержимое, которое можно положить в пакет
Ответ:Ммм... Паскаль) Для этого сайты есть.
Объяснение:
Var a, b, c: integer;
begin
writeln('Введите три числа:');
readln(a, b, c);
if (a > b) and (a > c) then writeln(a);
if (b > a) and (b > c) then writeln(b)
else writeln(c)
end.