Создать массив который вводит массив состоящи из 10 целых чисел.Выводятся ** экран слово...

Question

Создать массив который вводит массив состоящи из 10 целых чисел.Выводятся на экран слово хорошо при условии,что элемент массива больше 10 и слово плохо в противном случаи

Answer 1

Program Inf;
uses crt;
var a:array[1..10] of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write(‘a[‘,i,’]=‘);
readln(a[i]);
if a[i]>10 then writeln(‘хорошо’)
else writeln(‘плохо’);
end;
end.