Составить программу обработки исходных данных.

Количество элементов массивов не менее 10.
Исходные данные ввести самостоятельно.
Вывести на экран исходные данные и результаты выполнения программы.

Исходные данные:
Наименование специальности, форма обучения, план приема, количество заявлений абитуриентов
Определить:
1)Самую популярную специальность
2)Общий план приема

Сформировать массив
Наименований специальностей с заочной формой обучения
Очень нужна помощь!!!

Ответы и объяснения

Решение на языке Паскаль:

program new;
uses
crt;
type
specialty = record
title, forma: string;
plan, entrants: integer;
end;
var
i, n, all, max, pos, k: integer;
p: specialty;
a: array [1..20] of specialty;
b: array [1..20] of string;
begin
clrscr;
{# заполнение массива исходних данных #}
i:=10;
write('Сколько записей вы хотите добавить (от 10 до 20)? ');
readln(n);
clrscr;
for i:=1 to n do
begin
clrscr;
writeln('*** Ввод записи № ',i,' ***');
write('Введите название специальности: ');
readln(p.title);
write('Введите форму обучения: ');
readln(p.forma);
write('Введите план приема: ');
readln(p.plan);
write('Введите количество заявлений абитуриентов: ');
readln(p.entrants);
a[i]:=p;
end;
{# анализ исходних данных #}
clrscr;
max:=0;
all:=0;
k:=0;
for i:=1 to n do
begin
all:=all+a[i].plan;
if (a[i].entrants > max) then
begin
max:=a[i].entrants;
pos:=i;
end;
if (a[i].forma = 'Заочная') then
begin
b[k]:=a[i].title;
inc(k);
end;
end;
writeln('Самая популярная специальность: ' + a[pos]);
writeln('Общий план приема: ' + all);
writeln('Специальности с заочной формой обучения: ');
for i:=1 to k do
writeln('- ' + b[i]);
end;
readln;
end.
  • Спасибо выручили!!! !
    отметить нарушение!
    mihail1995

Новые вопросы по теме

Задай вопрос
+