Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
1 килобайт-1024 байт
1 байт-8 бит
1 килобайт-8192 бита
1500 килобайт-12288000 бит
12288000/512000=24 секунды
Иванов-парикмахер.Петров-плотник.Сидоров-мельник.Гришин-почтальон.Алексеев-маляр.
Var i,k: integer;
a: array[1..16] of integer;
priz: boolean;
st: string;
begin
k:=0; priz:=false;
st:='';
randomize;
writeln('исходный массив из 16 элементов');
for i:=1 to 16 do
begin
a[i]:=random(50)-30;
write(a[i],' ');
if a[i]<0 then k:=k+1;
if (a[i] mod 3) = 0 then
begin
priz:=true;
if i>9 then
st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','
else st:=st+chr(ord(i+48))+',';
end;
end;
writeln;
delete(st,length(st),1);
if k>0 then
writeln('кол-во отрицат. элементов = ',k);
if priz then
writeln('индексы элементов, кратных трем: ',st)
else writeln('нет элементов, кратных 3');
readln;
<span>end.
</span>
Ответ:
1. 22
2. 19
3. 25
Объяснение:
Текстовые файлы: doc, txt, rtf
Видео-файлы: avi
Графические файлы: bmp
1. Графические файлы в папке Книги и во всех вложенных в неё папках
3 + 5 + 0 + 0 + 9 + 4 + 1 = 22 файла
2. Видео-файлы в папке Учебники и во всех вложенных в неё папках
4 + 12 + 3 = 19 файлов
3. Текстовые файлы в папке Романы и во всех вложенных в неё папках
5 + 0 + 4 + 3 + 0 + 3 + 6 + 0 + 4 = 25 файлов