Подсобите подправить код в задаче на записи!

21.12.2016, 00:25. Показов 786. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Условие: ''На олимпиаде по информатике на школьников заполнялись анкеты: фамилия, номер школы, класс, занятое место. Напечатать:
1) списки школ, занявших призовые места;
2) какая из школ заняла больше всех призовых мест;
3) списки учеников занявших первое место, указать их класс''

Я не понимаю, что у меня не так, можете помочь?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program zadacha5;
const n=2;
type anketa = record
            fam:string[20];
            shk:byte;
            kls:byte;
            mst:byte;
            end;
var a: array[1..n] of anketa;
  perv: array of integer;
    o,jjjj,jjj,i,j,k,p,jj:byte;
begin
writeln('Введите сведения об участниках:');
for i:=1 to n do
 begin
  writeln('*** Участник под номером ',i,' ***');
  with a[i] do
   begin
    writeln('Фамилия: ');
    readln(fam);
    writeln('Номер школы: ');
    readln(shk);
    write('Класс: ');
    readln(kls);
    writeln('Занятое место: ');
    readln(mst);
   end;
   end;
writeln('Списки школ, занявших призовые места:');
  for j:=1 to n do
  begin
  if (a[j].mst in [1..3]) then 
  begin perv[o]:=a[j].shk; o:=o+1;
  end;
  end;
  for jjjj:=1 to perv.Length do
    writeln('Школа № ',perv[jjjj]);
if k=0 then writeln('Призовые места никому не присуждены!');
  writeln('Больше всех призовых мест заняла школа № ',jj);
  writeln('Списки учеников, занявших первые места:');
  for jjj:=1 to n do
  if a[jjj].mst=1 then writeln(a[i].fam,'  ',a[i].kls);
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

21.12.2016, 00:25

Ответы с готовыми решениями:

Подправить две строчки в задаче
#include <stdio.h> #include <clocale> #include <conio.h> #include <cstdlib> #include <iostream> using namespace std; int...

Подсобите закончить код
Задание: Разработать программу, которая считывает произвольный текст и распечатывает в алфавитном порядке все латинские буквы, ...

Подсобите исправить код, знаю, что есть ошибки
Посмотрите код, есть тут ляпы очевидные, некоторые я исправил, но еще надо поправить int prg() { char name; char...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

21.12.2016, 00:25

Помогаю со студенческими работами здесь

Подправить код
Сам код работает . Объясняю в чем именно проблема: Открываю файл txt текст загружается все нормально, удаляю символы. Сохраняю в doc ,...

Подправить код
#include "stdafx.h" #include <iostream> using namespace std; const int n=10; float X; double sum(); int _tmain(int argc,...

подправить код
Всем здравствуйте!Пишу программу,реализующую классическую задачу "Производитель-потребитель",на форме расположены 5 ListBox'ов....

подправить код!
помогите чуть подправить код. в базе путь к картинке: ../img/advertising/cinema/323.jpg но нужно чтобы путь выводился без ../ перед...

Подправить код
#include <iostream> #include <locale> #include <ctype.h> using namespace std; int main () { const int n=20; char s; int k={...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

Наверх