Регистрация
Мялан
17.05.2020 07:49
Информатика
Есть ответ 👍

Вариант 4. 1.
Дана строка. Подсчитать количество слов, начинающихся с буквы б.
Например, Боря любит играть на барабане. ответ: 2

178
414
Посмотреть ответы 1

Ответы на вопрос:

Madi12kz
Madi12kz
4,5(9 оценок)

program p1; usescrt;

typetarray = array[1..1] of integer;

varn,max : integer; i,k : integer; a : ^tarray; begin

{$r-}

clrscr;

write('n = '); read(n);

getmem(a,n*sizeof(integer));

k : = 1;

for i : = 1 to n do begin

write('element ',i,' = '); read(a^[i]);

if i = 1 then max : = a^[i];

if a^[i] > max then begin max : = a^[i]; k : = i; end;

end;

writeln('');

writeln('max = ',max); writeln('nomer: ',k);

readln; readln;

freemem(a,n*sizeof(integer));

end.

 

Популярно: Информатика