1)составить программу которая выводит на экран каждое 5-ое число и таких чисел 20. 2)составить программу которая вычисляет произведение натуральных чисел от 5 до 10.

1. var i: integer; a: array [1..20] of integer; begin randomize; writeln('массив: '); for i: =1 to 20 do a[i]: =random(21)-10;   for i: =1 to 20 do write(a[i]: 5); writeln; writeln('каждый пятый эелемент массива: ');   for i: =1 to 20 do if i mod 5 = 0 then write(a[i]: 5); end. 2. var x,i: integer; a: array [1..20] of integer; begin randomize; writeln('массив: ');   for i: =1 to 20 do a[i]: =random(11); for i: =1 to 20 do write(a[i]: 5); writeln; writeln('натуральные числа в диапазоне [5..10]: ');   for i: =5 to 10 do write(a[i]: 5); writeln; x: =1; writeln('их произведение: ');   for i: =5 to 10 do x: =a[i]*x; write(x: 5);   end.

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.

 

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

 

при запуске программы вводите эти значения и тестируете.