написать 3 программы

[Sanjke123]

помогите написать три программы.

1. Задать массив из n элементов (случайных чисел от -10 до 10). Сколько раз число 3 встречается в массиве.
это первая программа.

2. Вывести на экран в порядке убывания числовой ряд действительных чисел от 10 до 20 с шагом 0,4.
вторая.

3. Вычислить объём шара радиуса R.
ну и третья.

Нужно тупо для зачета, в этом ничего не соображаю .
Так что если не сложно от начала и до конца программки.

[McFrey]

3)

Program by_McFrey;
var
R,V:Real;
begin
Writeln('Введи R:');
Readln(R);
V:=4.2*(R*R*R);
Writeln('Объєм шара:',v:4:1);
end.

[McFrey]

2)

var a:real;
begin
a:=20;
while a>=10 do
 begin
  write(a:8:1);
  a:=a-0.4;
 end;
 end.

___________________________
помог-нажми на весы будь мужиком блеать!!!=D

[McFrey]

1)

var a:array[1..100] of integer;
    i,n,k:integer;


begin
write('Введите количество элементов массива n=');
readln(n);
for i:=1 to n do
 begin
  a[i]:=-10+random(20);
  write(a[i],' ');
 end;
writeln;

k:=0;
for i:=1 to n do
if a[i]=3 then k:=k+1;
writeln('Число 3 встречается ' , k  ,' раз');

end.

[Sanjke123]

Спасибо.
1 и 3 задание работаю четко
А вот со вторым проблема, не запускается программа (тыкаешь запуск, а она ни как не реагирует, и не выдает никаких ошибок).

[McFrey]

uses
  crt;

var
  a: real;

begin
  clrscr;
  a := 20;
  while a >= 10 do
  begin
    writeln(a:8:1);
    a := a - 0.4;
  end;
  readkey; 
end.

попробуй так....все работает....

[Sanjke123]

спасибо, заработало.
Счастливого нового года тебе!