Не 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],' ');
Верхний правый угол нажми на свой аватал , там есть выход .
Program z1;
Uses Crt;
var a,i:integer;
p:longint;
begin
clrscr;
p:=1;
write('Введите число а: ');
readln(a);
for i:=a to 100 do
p:=p*a;
writeln('Произведение всех чисел от ',a,'до 100:',p);
readkey;
end.
Program z2;
Uses Crt;
var s,i:integer;
i:=2;s:=0;
while(i<=98) do
begin
s:=s+i;
i:=i+2;
end;
clrscr;
write('Сумма последовательности: ',s);
readkey;
end.
Program z3;
Uses Crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=100 to 999 do
if ((i mod 5)=0 and (i mod 21)=0) then
a:=a+1;
write('Количество 3-значных чисел делящихся без остатка на 5 и 21: ',a);
readkey;
end.
Program z4;
Uses Crt;
var a,i,s:integer;
begin
clrscr;
s:=10:
write('Введите количество тренировочных дней: ');
readln(a);
for i:=2 to a do
s:=s+3;
write('Суммарное расстояние: ',s);
readkey;
end.
Program z5;
Uses Crt;
var a,i,n,s:integer;
begin
clrscr;
write('Введите количество отрядов: ');
readln(n);
s:=0;
for i:=1 to n do
begin
write('Введите количество детей в ',i ,'-м отряде:' );
readln(a);
clrscr;
s:=s+a;
end;
writeln;
writeln('Общее количество детей в лагере:',s);
readkey;
end.
Объясните пожалуйста, какая у Вас конкретная тема по информатике и каким образом это творить ?! С помощью переменных строк или иначе...
Первое видео? Похоже программа ломаная, качай вегас, он надежнее