Решение заданиий 2 и 3 - в файлах.
Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv =');
for i := 1 to n do
readln(a[i]);
k:=0;
for i := 1 to n do
if a[i]>0 then inc(k);
writeln('k=',k);
readln;
end.
1слово-поле,код буквы п-10111111
2слово-озеро
3слово-лес
Отгадать оказалось легко внимательно читайте задания я то же не сразу разобралась
var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;
Око , пуп , тот , оно , антилопа , <span> азбука , алгебра , антэна , снилс.</span>