type re=record sub:string; name:string; co:integer; end;
Var n,i,k:integer; ar:array of re; begin readln(n); setlength(ar,n+1); for i:=1 to n do begin writeln('Введите фамилию участника №',i); readln(ar[i].sub); writeln('Введите имя участника №',i); readln(ar[i].name); writeln('Введите участника №',i); readln(ar[i].co); if ar[i].co>100 then inc(k); end; writeln('Количество end.
Пример ввода: 4 Введите фамилию участника №1 Двачевская Введите имя участника №1 Алиса Введите участника №1 99 Введите фамилию участника №2 Персунов Введите имя участника №2 Семён Введите участника №2 101 Введите фамилию участника №3 Коллайдер Введите имя участника №3 Виола Введите участника №3 999 Введите фамилию участника №4 Сиина Введите имя участника №4 Микадо Введите участника №4 100 Пример вывода: Количество
1) Подпрограмма (функция) может непосредственно вернуть значение в вызывающую программу, например: x:=cos(y);
2) Подпрограмма может изменить значение значение глобальных переменных, и их новое значение будет доступно в вызывающей программе;
3) Подпрограмме в качестве параметра может быть передан адрес объекта в памяти, и подпрограмма, изменив значение, передаст новое значение в вызывающую программу;
4) Подпрограмме в качестве параметра может быть передана ссылка на объект, и подпрограмма сможет изменить значение этого объекта.
Вроде всё... Хотя нет
5) Возможен обмен данными через файл - подпрограмма записывает данные в файл, вызывающая программа - читает эти значения (или наоборот). Это, конечно, крайне не эффективно и на практике никогда не применяется, но возможность такая есть.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
