Составьте программу, печатающую самое распространненое женское имя в классе.

03.06.2010, 21:16. **Показов** 1471. **Ответов** 1

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

Задача такая.
Составьте программу, печатающую самое распространненое женское имя в классе.

Третий день бъюсь и не получается.. а завтра здавать. помогииите кто может плиииииииз(((

@кот Бегемот · 03.06.2010, 22:48

Сообщение от Makcимус

Задача такая.
Составьте программу, печатающую самое распространненое женское имя в классе.

Третий день бъюсь и не получается.. а завтра здавать. помогииите кто может плиииииииз(((

Pascal

var
a,imya:array[1..100]of string;
b:array[1..100]of integer;
n,i,f,max,k,j:integer;
begin
writeln('vvedite kolichestvo devushek');
readln(n);
{k:=1;}
for i:=1 to n do
begin
 f:=0;
 writeln('vvedite imya');
 readln(imya[i]);
  for j:=1 to k-1 do
  if imya[i]=a[j] then f:=1;
  if f=0 then begin
  inc(k);
  a[k]:=imya[i];
  end;
  end;
for i:=1 to n do
 for j:=1 to k do
if a[i]=a[j] then inc(b[j]);
max:=1;
for i:=1 to k do
if b[i]>b[max] then max:=i;
writeln('max=',a[max]);
readln;
end.

Makcимус
		1
	Составьте программу, печатающую самое распространненое женское имя в классе. 03.06.2010, 21:16. Показов 1471. Ответов 1 Метки нет (Все метки) Задача такая. Составьте программу, печатающую самое распространненое женское имя в классе. Третий день бъюсь и не получается.. а завтра здавать. помогииите кто может плиииииииз(((

	03.06.2010, 22:48

Составьте программу, печатающую самое распространненое женское имя в классе.

Решение