Jhfdjhegfjksfdsfdjkbgnbdkrngd/skfjns/rkjgnskdrbjhkdrhdtyjftukyuj
Решение смотри во вложении.
Program prog;
uses crt;
var a: array [1..30] of integer;
i: integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 30 do
begin
if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
write (a[i], ' ');
end;
end.
Примеры декларативного знания: монитор имеет квадратную форму, трава желтеет, вода мокрая, лед скользкий, ножи острые, перец острый.
Примеры процедурных знаний: что бы приготовить яичницу, нам нужно разбить яйца и жарить их в течении 5 минут.
А можно порусски пожалуйста написать