Pascal. Помогите составить программу.

программирование программы математика pascal паскаль

Анкета студента: фамилия, имя, отчество, возраст, пол,
группа, буква группы, оценки по пяти предметам. Существует пять таких записей.

Фамилии тех у кого есть две двойки и больше?
Ответы:
Например, у нас двумерный массив с записями
Элементы
1  фамилия
2 имя
3 отчество
4 возраст
5 пол
6 группа крови
8 буква группы
9-13 оценки
Пройдёмся по нему
for i:=1 to n do begin
count:=0;
for j:=9 to 13 do if (a[i, j] = 2) then count:=count+1;
if (count >1) then writeln (a[i, 1]);
end;
uses crt;
const n=5;
type anketa=record
 Family:String;
 Name:String;
 Patronymic:String;
 Years:integer;
 Gender:String;  
 Subject1:integer;
 Subject2:integer;
 Subject3:integer;
 Subject4:integer;
 Subject5:integer;  
 end;
var spis:array[1..n] of anketa;
   i, k:integer;
begin
for i:=1 to n do
 begin
 clrscr;
 writeln('Анкета ',i,' из ',n);
 
 write('Фамилия - ');  readln(spis[i].Family);
 write('Имя - ');  readln(spis[i].Name);
 write('Отчество - '); readln(spis[i].Patronymic);
 write('Возраст(число) - '); readln(spis[i].Years);
 write('Пол - ');  readln(spis[i].Gender);
 
 writeln;
 writeln('Оценки по предметам():');
 write('Предмет1 - ');readln(spis[i].Subject1);
 write('Предмет2 - ');readln(spis[i].Subject2);
 write('Предмет3 - ');readln(spis[i].Subject3);
 write('Предмет4 - ');readln(spis[i].Subject4);
 write('Предмет5 - ');readln(spis[i].Subject5);  
 end;
 
clrscr;
for i:=1 to n do
 begin
 k:=0;
 if spis[i].Subject1 = 2 then inc(k);
 if spis[i].Subject2 = 2 then inc(k);
 if spis[i].Subject3 = 2 then inc(k);
 if spis[i].Subject4 = 2 then inc(k);
 if spis[i].Subject5 = 2 then inc(k);
 if k>=2 then writeln(spis[i].Family,' - ', k);  
 end;
readln;
end.


12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.