ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от lll6

Код:

program vtoraia;
const n=10;
var x,t:integer; a,b:array [1..n] of integer;
begin
t:=1;
 for x:=1 to n do
  a[x]:=random (100);
 for x:=1 to n do
   if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;
 for x:=1 to t do
  writeln (b[x],' ');
  readln
end.

У тебя ошибка:

Код:

  if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;

Точнее:

Код:

then begin b[t]=a[x]

Там не "=" там ":="

Еще посмотри на свой код:

Код:

begin
t:=1;
 for x:=1 to n do
  a[x]:=random (100);
 for x:=1 to n do
   if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;
 for x:=1 to t do
  writeln (b[x],' ');
  readln
end.

Точнее:
ЗАЧЕМ ТЫ ПИШЕШЬ ТАК:

Код:

if a[x]<>0 then begin b[t]=a[x]; t:=t+1; end;

Этот цикл( for x:=1 to t do
writeln (b[x],' ');)
Длится не до t, а до t-1;