fork download
copy 
  1.  
  2. program z1;
  3. var
  4. mas:array[1..5]of integer; //5 элементов
  5. i, n:integer;
  6. begin
  7. Writeln('Введите элементы массива');
  8. n :=0;
  9. for i :=1 to 10 do
  10. begin
  11. mas[i]:=random(10);
  12. Write('->');
  13. Write(mas[i]);
  14. if mas[i]<=5 then
  15. inc(n);
  16. end;
  17. Writeln;
  18. Writeln ('Отрицат. элем. всего: ',n);
  19. Readln;
  20. end.  
  21.  
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите элементы массива
->5->5->7->8->6->8->5->8->4->6
Отрицат. элем. всего: 4
https://ideone.com/fFZyZn
language:
Pascal (fpc 3.0.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!