Задачки по теме массивы в паскале

[HellMor]

Задачки по теме массивы в паскале

1. С клавиатуры вводятся P элементов вещественного массива. Определить количество положительных чисел.
2. Написать программу, которая в массиве из D случайных чисел в диапазоне от -100 до -10 находит все нечетные числа. Найденные числа выводятся на экран

 

[MrSTEP]

А вы пробовали такие простейшие программы сами писать? Стыдно с такими по форумам помощи искать, товарищ..

 

[HellMor]

это не для меня даже меня попросили помочь найти что нибудь насчёт этих задач решил здесь попросить помощи :tehnari_ru_102:

 

[shrek=)]

1. С клавиатуры вводятся P элементов вещественного массива. Определить количество положительных чисел.

var
a:array [1..1000] of real;
i,p,c:integer;
begin
write ('p=');
readln (p);
[COLOR="Red"]c:=0;[/COLOR]
for i:=1 to p do begin
write ('a[',i,']=');
readln (a[i]);
if a[i]>0 then inc(c);
end;
writeln ('положительных элементов  ',c);
readln
end.

Вот такое вот решение.

 

[Vladimir_S]

2. Написать программу, которая в массиве из D случайных чисел в диапазоне от -100 до -10 находит все нечетные числа. Найденные числа выводятся на экран

CONST
 D=16;
VAR
 A,B:Array[1..D] of Integer;
 i:integer;
 N:Byte;

BEGIN
 Randomize;
 N:=0;
 for i:=1 to D do
  begin
   A[i]:=-100+Random(91);
   write(A[i]:5);
   If (A[i] mod 2)=-1 then
    begin
     N:=N+1;
     B[N]:=A[i];
    end;
  end;
 WriteLn;
 WriteLn;
 For i:=1 to N do
  Write(B[i]:5);
 WriteLn;
 ReadLn;
END.

 

[HellMor]

Спасибо большое

 

[AlexZir]

shrek=)
Инициализировать переменные не забывай.