1. с клавиатуры вводится целое число n. далее вводится n символов. подсчитать количество маленьких латинских букв. pascal

293

447

Посмотреть ответы 2

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

кабанерий

Информатика

4,8(54 оценок)

Program j7; var a: array of char; n: integer; i: integer; cnt: integer; begin writeln('введите размер массива: '); readln(n); setlength(a,n); for i: = 0 to n-1 do begin write('символ № ',i+1,' '); readln(a[i]); //заполнение массива end; for i: = 0 to n-1 do begin write(a[i]+' '); //вывод массива (по желанию) end; writeln(); cnt: =0; for i: = 0 to n-1 do begin if a[i] in ['a'..'z'] then begin inc(cnt); //подсчет маленьких латинских букв end; end; writeln('количество маленьких латинских букв: ',cnt); write('нажмите клавишу enter для '); readln(); end.