IIoH9TJluBblu
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
благодарю
выводит теперь то, что надо, только последовательность не в строчку идет, а по одному символу, причем перед каждым из них слово "results"
а когда пишу writeln(f2,b), то пишет 'cannot read or write variables of this type'
----------------------------------------------------------------------------------------------
пытаюсь сделать ту же программу с процедурой
условие: дана матрица А 5х5 и последовательность B из 5 элементов. Если для каждой строки А сумма ее элементов меньше соответствующего элемента последовательности B, то присвоить всем элементам последовательности значения по правилу b[i]:=s[i];
код:
Program Zadanie;
Type matr=array[1..5,1..5] of real;
posl=array[1..5] of real;
Var a:matr;
b:posl;
i,j:integer;
s:real;
f1,f2:text;
procedure sum(var a:matr; i:integer);
Var j:integer;
s:real;
begin
s:=0;
for j:=1 to 5 do
s:=s+a[i,j];
end;
begin
assign(f1,'ifile.txt');
assign(f2,'vfile.txt');
reset(f1);
rewrite(f2);
for i:=1 to 5 do
for j:=1 to 5 do
read(f1,a[i,j]);
readln(f1);
for i:=1 to 5 do
read(f1,b[i]);
for i:=1 to 5 do
begin
sum(a,s);
writeln(f2,' ':25,'results');
writeln(f2);
if s<b[i] then
b[i]:=s;
writeln(f2,b[i]:4:2);
end;
close(f1);
close(f2);
end.
выдается type dismatch. не пойму почему, с функцией все было нормально.... пожалуйста, подскажите что исправить, чтобы процедура работала |
а то что оно ничему не присваивалось меня просто слегка порадовало 
