Помогите исправить ошибку в коде

рrogram P1;

var i, n: integer; a:array [1 ... 1000000] of string;

begin

readln (n) ;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do

begin

if (a[i] mod 100) = 50 then a[i]:=а;

write (a[i]) ;

end;

end.

Question

Информатика

Евгений

11 октября, 20:17

Помогите исправить ошибку в коде

рrogram P1;

var i, n: integer; a:array [1 ... 1000000] of string;

begin

readln (n) ;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do

begin

if (a[i] mod 100) = 50 then a[i]:=а;

write (a[i]) ;

end;

end.

+3

Ответы (1)

Знаете ответ на вопрос?

Альбиныч · Answer 1

1) program начинается з русской р

2) в массиве слишком много елементов

3) операцию mod нельзя применить к строке

4) a[i]:=а - а - русская буква

Тут даже исправлять нечего т. к. неясно что должна делать эта програма.

Помогите исправить ошибку в кодерrogram P1;var i, n: integer; a:array [1 ... 1000000] of string;beginreadln (n) ;for i:=1 to n do read (a[i]) ;for i:=1 to n dobeginif (a[i] mod 100) = 50 then a[i]:=а;write (a[i]) ;end;end.

Помогите исправить ошибку в коде

рrogram P1;

var i, n: integer; a:array [1 ... 1000000] of string;

begin

readln (n) ;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do

begin

if (a[i] mod 100) = 50 then a[i]:=а;

write (a[i]) ;

end;

end.