Объяснение:
C:\НОВОЕ\ПОКОЛЕНИЕ \ ВЫБИРАЕТ \ чтение.doc
Var
N, X, Max, i: Integer;
Begin
Max := 0;
WriteLn('Введите количество чисел N: ');
Read(n);
WriteLn('Введите N чисел: ');
For i := 1 To N Do
Begin
Read(X);
If X > Max then Max := x;
End;
WriteLn('Максимальное: ', Max);
End.
Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив
readln;
end;
for i:= 1 to 7 do
begin // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив
writeln;
end;
END.
CONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;
begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
<em>end;</em>
x:=x/i;
for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');
<span>
end.</span>
1) Высчитаем суммарное количество символов: 32*64*8=16384 (символа)
2) Высчитаем суммарное количество бит: 16*16384=262144 (бит)
3) Переводим биты в байты (1 байт = 8 бит): 262144/8=32768 (байт)
4) Переводим байты в килобайты (1 КБ = 1024 Б): 32768/1024=32 (килобайта)
Ответ: <u><em>32 КБ</em></u>
