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

Question

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;

Answer 1

88

dsirik

02 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: