Pascal. записать в файл последовательность натуральных чисел: а1, а2, аn (числа получить с генератора случайных чисел сформировать новый файл, элементами которого являются числа а1, а1 * а2, а1 * а2 * а3, а1 * а2 * а3 * * аn.

ответ:

объяснение:

const

  max_elements = 1000;

  a = 1;

  b = 15;

  first_file_name = '1.txt';

  second_file_name = '2.txt';

var

  i, j, n, r: integer;

  p: real;

  ar: array[1..max_elements] of integer;

  f1, f2: text;

begin

  randomize;

  writeln('input n = ');

  readln(n);

  for i: =1 to n do begin

    ar[i]: =random(b-a+1)+a;

  end;

  assign(f1, first_file_name);

  rewrite(f1);

  for i: =1 to n do begin

    writeln(f1, ar[i]);

  end;

  close(f1);

  assign(f2, second_file_name);

  rewrite(f2);

  for i: =1 to n do begin

    p: =1;

    for j: =1 to i do

      p: =p*ar[j];

    writeln(f2, p: 0: 0);

  end;

  close(f2);

  readln;

end.

1и 3)var ar: array[1..50] of integer; i,k,min: integer; begin; min: =100; writeln('array: '); for i: =1 to 50 do begin;   ar[i]: =random(10)-5;   write(ar[i]: 4);   if ar[i]=0 then inc(k);   if ar[i]< min then min: =ar[i]; end; writeln; writeln('0: ',k); writeln('min: ',min); end. 2) var ar: array[1..40] of integer; i,k: integer; begin; writeln('array: '); for i: =1 to 40 do begin;   ar[i]: =random(10)-5;   write(ar[i]: 4);   if ar[i]> 1 then inc(k); end; writeln('result: ',k); end.

Извиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? если нет, то я через часок другой вброшу короткое решение, а пока это. program n_1;   type   m= array [1..5] of integer;   var   a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer;   b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m;   c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m;   d,d,d2,d3,d4,d5,d6,d7,d8,d8: m;   begin   randomize;   b,b1,b2,b3,b4,b5,b6,b7,b8,b9: = random;   c,c1,c2,c3,c4,c5,c6,c7,c8,c9: = random;   d,d,,d2,d3,d4,d5,d6,d7,d8,d8: = random;   a: = (b+c+d) div 3;   a1: = (b1+c1+d1) div 3;   a2: = (b2+c2+d2) div 3;   a3: = (b3+c3+d3) div 3;   a4: = (b4+c4+d4) div 3;   a4: = (b5+c5+d5) div 3;   a6: = (b6+c6+d6) div 3;   a7: = (b7+7c+d7) div 3;   a8: = (b8+c8+d8) div 3;   a9: = (b9+c9+d9) div 3;   writeln ('ученик-', a);   writeln ('ученик 1-', a1);   writeln ('ученик 2-', a2);   writeln ('ученик 3-', a3);   writeln ('ученик 4-', a4);   writeln ('ученик 5-', a5);   writeln ('ученик 6-', a6);   writeln ('ученик 7-', a7);   writeln ('ученик 8-', a8);   writeln ('ученик 9-', a9) end.