Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

В программе Pascal ABC
Помогите составить программы

Ответ оставил Гость

2)

const n = 6;
var
  a: array[1..n] of integer;
  i, s: integer;
begin
  s := 1;
  for i := 1 to n do begin
    a[i] := random(5);
    write(a[i], );
    if(a[i] > 1) then s := s * a[i];
  end;
  writeln;
  writeln(Произведение эл. > 1 : , s);
end.

3)

const n = 8;
var
  a: array[1..n] of integer;
  i, max: integer;
begin
  for i := 1 to n do begin
    a[i] := 100000 + random(10000);
    write(a[i], );
    if(a[i] > max) then max := a[i];
  end;
  writeln;
  writeln(Наибольшее кол-во населения: , max);
end.