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.
2) x + y/f - 9
3) y*y*y*y - sqrt(c + 6/5) + sqrt(1/x)
Если неправильно, то расставь скобки у себя в условии. Я решил так, как у тебя написано.