С++
№10
С клавиатуры вводится число N, обозначающие количество футболистов команды "Бублик", а затем- строк, в каждый из которых - информация об одном футболисте в такой формате:
<Фамилия> <Имя> <год рождения> <голы>
Данные разделяются одним пробелом. Нужно подсчитать, сколько футболистов, родившихся в период с 1998 по 2000г., не забили мячей вообще.
№11
В условиях предыдущей задачи определите фамилию и имя футболиста, забившего наибольшее число голов, и количество забитых им голов.
№12
В условиях предыдущей задачи выведите в алфавитном порядке фамилии и имена всех футболистов, которые забили хотя бы один голю в списке не более 100 футболистов.
№13
Измените программу рекурсивного перебора так, чтобы длину слова можно было ввести с клавиатуры.
№14
Выведите на экран все слова длиной L символов, в которых буква Ы встречается более 1 раза, и подсчитаете их количество.
№15
Выведите на экран все слова длиной L символов, в которых есть одинаковые буквы, стоящие рядов (ЫШШО, например), и подсчитайте их количество.
№16
В языке племени "тумба-юмба" запрещено ставить две гласные буквы подряд. Выведите все слова длиной L символов, удовлетворяющие этому условию, и найдите их кол-во.
На С++
Var a: array [1..22] of integer;
i,h,n,k,c:integer;
l:real;
begin
for i:=1 to 22 do
a[i]:=random(51)-25;
for i:=1 to 22 do
begin
if a[i]>0 then begin c:=c+a[i];
k:=k+1;
end;
l:=c/k;
n:=0;
h:=0;
if a[i]<0 then h:=h+1;
if a[i]=0 then n:=n + 1;
end;
writeln(a[i],'среднее арифметическое= ',l:2:2,'; количество отрицательных = ', h,'; количество равных нулю = ',n);
end.
Вот и вторая задача:
Program enot;
Var a: array [1..4,1..4] of integer;
i,j,s,p,h:integer;
o:real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
a[i,j]:= random(25)-12;
p:=1;
for i:= 1 to 4 do
begin
s:=s+a[i,3];
p:=p*a[i,i];
end;
writeln('summa= ',s,'; произведение= ',p);
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
h:=h+a[i,j];
o:=h/16;
end;
writeln('среднее арифметическое= ',o);
end.