Помогите пожалуйста!
Нужно составить программу на языке паскаль для решения такой задачи : поиск двух учащихся школы,у которых совпадает имя?
Вы не указали как хранятся данные о студентах и как осуществляется ввод. Попробуйте так, хотя я уже давно в Паскале не писала.
program pr1;procedure CreateMass(var str:mass; n:integer);var i:integer;begin for i:=1 to n do begin write('Введите имя учащегося: '); readln(str[i]) endend;procedure SearchN (str:mass; n:integer);var i, j, s1, s2:integer; b:boolean;begin b:=false; j:=1; while (j <= (n-1)) and (not b) do begin for i:=j+1 to n do begin if str[j]=str[i] then begin b:=true; s1:=i; s2:=j end end; j:=j+1 end; if (not b) then writeln('Нет двух студентов с одинаковыми именами.') else writeln('Студенты с одинаковыми именами - ',str[s1], ' находятся в массиве под номерами ', s1, ' и ', s2, '.')end;type mass = array [1..n] of string;const n = 10;var str:mass;begin CreateMass(str, n); SearchN(str, n)end.
Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она
Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.
Кто такой мильтиад и какова его роль в победе над персами?
Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией
Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.