program ok;
uses
crt;
type
t_st=record
a:string;
end;
var
st:array[1..30] of t_st;
i,n:byte;
begin
clrscr;
write('Kol-vo studentov: ');
read(n);
for i:=1 to n do
begin
write('F.I.O. ',i,' studenta: ');
readln(st.a);
writeln(st.a);
end;
readkey
end.
простенькая запись не работает
В программе не вводится ф.и.о. 1-го студента, а всех остальных вводится. Исправьте, где неверно, пожалуйста. Программа: вводится кол-во студентов, затем в цикле, вводится ф.и.о. и после каждого ввода, то, что ввели выводится га экран.
Код:
[FONT=monospace]Вместо read(n) используйте readln(n);
[/FONT]
[/FONT]
Код:
program ok;
uses
crt;
type
t_st=record
a:string;
end;
var
st:array[1..30] of t_st;
i,n:byte;
begin
clrscr;
write('Kol-vo studentov: ');
[COLOR="Red"]readln[/COLOR](n);
for i:=1 to n do
begin
write('F.I.O. ',i,' studenta: ');
readln(st.a);
writeln(st.a);
end;
readkey
end.
uses
crt;
type
t_st=record
a:string;
end;
var
st:array[1..30] of t_st;
i,n:byte;
begin
clrscr;
write('Kol-vo studentov: ');
[COLOR="Red"]readln[/COLOR](n);
for i:=1 to n do
begin
write('F.I.O. ',i,' studenta: ');
readln(st.a);
writeln(st.a);
end;
readkey
end.
вот так работает
неуспел совсем чуть-чуть :D