Помогите1! 70 БАЛЛОВ

0 голосов
35 просмотров

Помогите1! 70 БАЛЛОВ


image

Информатика (34 баллов) | 35 просмотров
Дан 1 ответ
0 голосов

1.     var a:array[1..10] of integer;

  i,pr:integer;

      begin

       randomize;

pr:=1;

        for i:= 1 to 10 do

           a[i]:=random(10);

    for i:=1 to 10 do

        if i mod 2<>0 then pr:=pr*a[i];

write('Массив:');

 for i:=1 to 10 do

    write (A[i],' ');

writeln('Произведение= ',pr);

end.

2.     var a:array[1..10] of integer;

  i,max,min:integer;

      begin

       randomize;

max:=0; min:=30000;

        for i:= 1 to 10 do

           a[i]:=random(10);

    for i:=1 to 10 do

begin

    if a[i]>max then max:=a[i];

   if a[i]

end;

 write('Разность=',max-min);

  end.

     

(69 баллов)