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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
