Нарисуешь, я думаю, ты сама)) В электронном виде не примут ведь? А насчет умений... Он может уметь: летать, считать, разговаривать, рисовать, читать, готовить, убираться, ходить, воспроизводить музыку, заряжать другие эл. устройства и так далее =)
Begin
// ввести значения массива а и значение Q
for i:=1 to 8
for j:=1 to 9
if a[i,j]>Q then
begin
sum=sum+a[i,j];
kol=kol+1;
end;
if kol>0 then
sr=sum/kol;
write('srednee= ',sr);
else
write('net takih chisel');
end.
Ответ:
program Example;
var
a, b: Double;
begin
Write ('Введите длину и ширину участка: ');
ReadLn (a, b);
WriteLn ('Площадь = ', (a + b) * 2 :10 :2);
ReadLn;
end.