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

Question

Информатика

Марка

27 марта, 18:55

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

+4

Ответы (1)

Знаете ответ на вопрос?

Фемистокл · 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.