Информатика 10 класс решение задач

Объяснение:

Емс6еи6меим6п м6 Пс6е. Ем6ием6ем6иием6ем6и

Program long;   uses crt;   const n=5;   type vec=array [1..n] of integer;   var a, b, c: vec;         i,j,k, col: integer;         pro: longint;         a1, a2: integer; begin   clrscr;   randomize;   col: =1;   pro: =1;   writeln ('massiv a: ');   for i: =1 to n do     begin         a[i]: =500+random(2000);         write(a[i]: 6);         if a[i] > 1000 then               begin                   b[col]: =a[i]; col: =col+1;               end;     end;   writeln;   col: =col-1;   writeln;   writeln ('massiv b: ');   for i: =1 to col do     writeln(b[i]);   writeln;   k: =1;   for i: =1 to n do     begin             a2: =b[i] mod 10;             a1: =b[i] div 1000;             if sqr(a1)< sqr(a2) then                     begin                           c[k]: =b[i];                           k: =k+1;                     end;     end;   for i: =1 to k-1 do         pro: =pro*c[i];   writeln ('pro=',pro); readln; end.