Обработка массивов
Здравствуйте!исправьте пожалуйста ошибку,не могу понять почему не идёт программа. Дана матрица А, имеющая 30 строк и 10 столбцов, содержащие оценки группы за первый семестр. Найти количество хорошистов в группе. (Использование текстовых файлов для ввода-вывода).
uses crt;
var fin,fout:text;k:integer;
a:array[1..30,1..10] of integer;
s:array[1..30] of real; var i,j:byte;
begin
assign(fin,'vvod.txt');
randomize;
rewrite(fin);
for i:=1 to 30 do begin
for j:=1 to 10 do begin
a[i,j]:=random(5)+1;
write (fin,a[i,j]:4);
end;
writeln(fin);
end;
close(fin);
reset(fin);
for i:=1 to 30 do begin
k:=0;
for j:=1 to 10 do
if a[i,j]='4' then k:=k+1;
end;
close(fin);
assign(fout,'vvod2.txt');
rewrite(fout);
for i:=1 to 30 do begin
s:=s/10;
write(fout);end;
writeln(fout);end;
close(fout);
end.
Здравствуйте!исправьте пожалуйста ошибку,не могу понять почему не идёт программа. Дана матрица А, имеющая 30 строк и 10 столбцов, содержащие оценки группы за первый семестр. Найти количество хорошистов в группе. (Использование текстовых файлов для ввода-вывода).
uses crt;
var fin,fout:text;k:integer;
a:array[1..30,1..10] of integer;
s:array[1..30] of real; var i,j:byte;
begin
assign(fin,'vvod.txt');
randomize;
rewrite(fin);
for i:=1 to 30 do begin
for j:=1 to 10 do begin
a[i,j]:=random(5)+1;
write (fin,a[i,j]:4);
end;
writeln(fin);
end;
close(fin);
reset(fin);
for i:=1 to 30 do begin
k:=0;
for j:=1 to 10 do
if a[i,j]='4' then k:=k+1;
end;
close(fin);
assign(fout,'vvod2.txt');
rewrite(fout);
for i:=1 to 30 do begin
s:=s/10;
write(fout);end;
writeln(fout);end;
close(fout);
end.
