Составить программу ,которая формирует массив ,содержащий 12 случайных целых чисел...

0 голосов
40 просмотров

Составить программу ,которая формирует массив ,содержащий 12 случайных целых чисел ,принадлежащий промежутку [-7;10],и подсчитывает кол-во всех отрицательный чисел


Информатика (18 баллов) | 40 просмотров
Дано ответов: 2
0 голосов

#include
#include      
#include

(3.2k баллов)
0 голосов

Паскаль:
var i,t:integer;
    a:array[1..12] of integer;
begin  randomize;
  for i := 1 to 12 do begin
    a[i] := round( random(17)-7 );
    write(a[i]:3);
  end;
  t := 0;
  for i := 1 to 12 do
    if a[i] < 0 then
      inc(t);
  writeln;
  writeln(t);
  readln;
end.

(198 баллов)
0

спасибо)