program klass;

type ocenki=record

name:string[15];

marks: array [1..5] of integer;

end;

var a,k,i:integer;

c:array [1..5] of ocenki;

begin k:=0;

For i:=1 to 5 do

With c[i] do

begin

write('vvedite name'); readln(name);

write('vvedine marks');

for i:=1 to 5 do read(marks[i]);

a:=i;

if c[a].marks < 2 (вот здесь выдает что операнды имеют неприводимые типы) then k:=k+1; writeln(k);

end;

end.

(Подскажите пожалуйста где допустила ошибку)

1

Ответы и объяснения

2012-11-01T17:53:35+04:00

program klass;
type
ocenki=record
name:string[15];
marks: array [1..5] of integer;
end;
var
a,k,i:integer;
c:array [1..5] of ocenki;
begin
k:=0;
For i:=1 to 5 do
begin
With c[i] do
begin
write('vvedite name');
readln(name);
write('vvedine marks');
for i:=1 to 5 do
begin
read(marks[i]);
a:=i;
if c[a].marks[i] < 2 then k:=k+1; writeln(k); /// marks[i]
end;
end;
end;
end.