Помогите исправить ошибку в коде р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; ...
Помогите исправить ошибку в коде
р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.
Гость
Ответ(ы) на вопрос:
Гость1) program начинается з русской р
2) в массиве слишком много елементов
3) операцию mod нельзя применить к строке
4) a[i]:=а - а - русская буква
Тут даже исправлять нечего т. к. неясно что должна делать эта програма .
Не нашли ответ?
Похожие вопросы