В массиве удалить все элементы, меньше, чем элемент, расположенный слева от максимального

27.12.2011, 22:47. **Показов** 1745. **Ответов** 1

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

В массиве А=(a1,a2,…an) удалить все элементы, меньше, чем элемент массива, расположенный слева от максимального
Дан массив из n слов произвольной длины,(длина слов не превышает 80 символов. Элементами слов могут быть любые графические символы. Найти и вывести слово, содержащие наибольшее количество цифр.

@КонецСвета · 27.12.2011, 23:21

Сообщение от Натальчик

Дан массив из n слов произвольной длины,(длина слов не превышает 80 символов. Элементами слов могут быть любые графические символы. Найти и вывести слово, содержащие наибольшее количество цифр.

Pascal

uses crt;
var a: array [1..100] of string;
    n,i,j,k,kmax: integer;
    smax: string;
begin
write('Сколько слов будет введено? ');
readln(n);
writeln('');
smax:=''; kmax:=0;
for i:=1 to n do
    begin
    readln(a[i]);
    k:=0;
    for j:=1 to length(a[i]) do
        if a[i][j] in ['0','1'..'8','9'] then inc(k);
    if k>kmax then
       begin
       smax:=a[i];
       kmax:=k;
       end;
    end;
writeln('Наибольшее количество цифр - ',k,' - в слове "',smax,'"');
end.

Натальчик
		1
	В массиве удалить все элементы, меньше, чем элемент, расположенный слева от максимального 27.12.2011, 22:47. Показов 1745. Ответов 1 Метки нет (Все метки) В массиве А=(a1,a2,…an) удалить все элементы, меньше, чем элемент массива, расположенный слева от максимального Дан массив из n слов произвольной длины,(длина слов не превышает 80 символов. Элементами слов могут быть любые графические символы. Найти и вывести слово, содержащие наибольшее количество цифр.

	27.12.2011, 23:21

В массиве удалить все элементы, меньше, чем элемент, расположенный слева от максимального

Решение