Решить задучу по информатике : дан массив из 8 случайных чисел от -4 до 10.все его элементы увеличить на число b(число b вводится с клавиатуры ) .

Program n1;
var 
    m: array [1..8] of integer; 
    i,b:integer;
begin
randomize;
for i:=1 to 8 do begin
   m[i]:=random(15)-4; 
   write(m[i],' ');
 end;
writeln;
writeln('Введите b'); readln(b);
for i:=1 to 8 do begin
   m[i]:=m[i]+b; write(m[i],' '); end; 
end.

готово. паскаль

Объяснение:

Задание 1

с = 0

Задание 2

var

 n, m, c: integer;

begin

 Write('Введите числа m и n >> ');

 ReadLn(m, n);

 if (m mod 5 <> 0) or (m < n) then

    c := (m mod 10) + (n mod 10);

 WriteLn('Сумма последних цифр этих чисел равна ', c);

end.

Задание 3

var

 a, b, c: integer;

begin

 Write('Введите числа a, b и c >> ');

 ReadLn(a, b, c);

 if (b < 50) and (b > 20) and (c < a) then

 begin

    WriteLn('Сумма этих чисел равна ', a + b + c);

    WriteLn('Произведение этих чисел равно ', a * b * c);

 end;

end.

Program Min_Max;

uses crt;

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

i,min,max:integer;

begin

 Textcolor (12);

  For i:=1 to 3 do

    Begin

      A[i]:=random(100);

      Write(A[i]:4);

    End;

 Writeln;

 min:=a[1];

 for i:=1 to 3 do  

  begin  

     if a[i]>max then  

      max:=a[i];

     if a[i]<min then  

      min:=a[i];

 end;

 write('                                   ');

 for i:=1 to 3 do  

  begin  

     if a[i]=max then

      Begin

       textcolor(12);

       write(max:3);

      End;

     if a[i]=min then  

        Begin

         textcolor(9);

         write(min:3);

        End;

     if (a[i]<>min) and (A[i]<>max) then

          Begin

           textcolor(14);

           write(A[i]:3);

          End;

      End;

readln;

end.

Объяснение: