За работу поставили пятерку)))) спасибо большое!!!
Подробнее о работе
Гарантия сервиса Автор24
Уникальность не ниже 50%
type baza=record
surname: string[10];
name: string[10];
zach: string[50];
ozenka: integer;
home: string[50];
end;
var
f:file of baza; friends: array [1..100] of baza;
a:array[1..100] of string;
I,j,k,c,n,m,u,nomer: integer; L,s:real;
q,w:char;
begin
assign(F,'baza.text');
rewrite(f);
q:='з';w:='н';
writeln('Введите количество людей');
readln(n);
writeln('введите номер группы');
readln(nomer);
for I:=1 to n do
begin
writeln ('введите фамилию ',' ',i,'-го студент');
readln (friends[i].surname);
for m:=1 to 5 do
Отсутствует
Создать файл, содержащий сведения о сдаче студентами сессии. Структура записи: индекс группы, фамилия студента, оценки по пяти экзаменам и пяти зачетам («з» означает зачет, «н» — незачет). Количество записей — 25. Б. Написать программу, выдающую следующую информацию: —фамилии неуспевающих студентов указанием индексов групп и количества задолженностей; —средний балл, полученный каждым студентом группы X, и всей группой в целом.
Отсутствует
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
type baza=record
surname: string[10];
name: string[10];
zach: string[50];
ozenka: integer;
home: string[50];
end;
var
f:file of baza; friends: array [1..100] of baza;
a:array[1..100] of string;
I,j,k,c,n,m,u,nomer: integer; L,s:real;
q,w:char;
begin
assign(F,'baza.text');
rewrite(f);
q:='з';w:='н';
writeln('Введите количество людей');
readln(n);
writeln('введите номер группы');
readln(nomer);
for I:=1 to n do
begin
writeln ('введите фамилию ',' ',i,'-го студент');
readln (friends[i].surname);
for m:=1 to 5 do
Отсутствует
Создать файл, содержащий сведения о сдаче студентами сессии. Структура записи: индекс группы, фамилия студента, оценки по пяти экзаменам и пяти зачетам («з» означает зачет, «н» — незачет). Количество записей — 25. Б. Написать программу, выдающую следующую информацию: —фамилии неуспевающих студентов указанием индексов групп и количества задолженностей; —средний балл, полученный каждым студентом группы X, и всей группой в целом.
Отсутствует
Купить эту работу vs Заказать новую | ||
---|---|---|
0 раз | Куплено | Выполняется индивидуально |
Не менее 40%
Исполнитель, загружая работу в «Банк готовых работ» подтверждает, что
уровень оригинальности
работы составляет не менее 40%
|
Уникальность | Выполняется индивидуально |
Сразу в личном кабинете | Доступность | Срок 1—5 дней |
170 ₽ | Цена | от 200 ₽ |
Не подошла эта работа?
В нашей базе 51914 Контрольных работ — поможем найти подходящую