Задание:
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;
Решение:
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.
Знаете другой ответ?