Задание 1 Запишите выражение,которое формирует массив В,содержащий 7 целых...

Question

Задание 1
Запишите выражение,которое формирует массив В,содержащий 7 целых чичсел,принадлежащий промежутку [-10;10]
Задание 2
Запишите выражение,которое формирует массив В,объявленный в задании 1 случайными числами

Answer 1

Задание1 :
var i,t:integer;
    a:array[1..7] of integer;
begin  randomize;
  for i := 1 to 7do begin
    a[i] := round( random(17)-7 );
    write(a[i]:3);
  end;
  t := 0;
  for i := 1 to 7 do
    if a[i] < 0 then
      inc(t);
  writeln;
  writeln(t);
  readln;
end.
Задание 2: 

Comments

Помогите решить и еще 2 задание