Решить задачу с массивом. Прочитать 8 симолов, Напечатать, если ли среди них символ...

Question

Решить задачу с массивом.
Прочитать 8 симолов, Напечатать, если ли среди них символ «звездочка»

Answer 1

Program ryazantsev;
var i:integer;
bool:boolean;
a:array[1..8] of string;
begin
bool:=false;
for i:=1 to 8 do readln(a[i]);
for i:=1 to 8 do if a[i]='*' then begin
bool:=true; break;
end;
if bool then writeln('звездочка есть')
else writeln('звездочки нет')
end.