Не 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],' ');

0 0

4 года назад

СРОЧНО ПОЖАЛУЙСТА ДАЮ 50 БАЛОВ СРОЧНО ПЖ!!!!!!!!!!!!!!!!!!!!!!!!! Менеджер находится в командировке. Ему необходимо привести оче

Darina000

Ответ:

27.3 %, 72.7%

Объяснение:

1. Найдем объем, занятый файлами

1.12 Гб + 1.05 Гб + 17 Мб = 2.17 + 17 / 1024 Гб ≈ 2.1866 Гб

2. Найдем, какую часть в процентах составляет занятый объем от полного

2.1866×100/8 ≈ 27.3 %

3. Заполненная часть составит 100 - 27.3 = 72.7%

0 0

4 года назад

Прочитать ещё 2 ответа

Составить приложение на языке Pascal.вводятся координаты точек х,у. определить в какую четверть она попадает

Алеся Юрьевна

Uses crt;
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
<span>end.</span>

0 0

4 года назад