ТутРешу.Ру

program klass; type ocenki=record name: string[15]; marks: array [1…

Задание:

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.




Знаете другой ответ?

Отправить свой ответ