Question

составьте массив a от 1 до 100 с помощью генератора случайных чисел с элементами от -7 до 7. выведите на экран, подсчитайте количество чисел равных 5

Answer 1

var i, k: integer;     
a:array[1..100] of integer;
begin
    k:=0;   
for i := 1 to 100 do 
begin  
a[i]:=random(15)-7; 
writeln(a[i]);
 end; 
for i := 1 to 100 do   
if a[i]=5 then inc(k);   
writeln(k);
readln
end.

Answer 2

я бесконечно признательна, спасибо большое!!!!!!

Answer 3

увы, боюсь, отчислят

Answer 4

хорошо, спасибо