Question

Информатика 11 класс
Помогите срочно!!!!!!

Answer 1

Ответ:

1)

const n=8;

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

i:integer;

begin

write('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i]:4)

end;

writeln;

for i:=4 to 7 do a[i]:= a[i]+3;

write ('   Новый массив:');

for i:=1 to n do write(a[i]:4)

end.

2)

const n=12;

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

i:integer;

begin

write('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(9000)+1000;

write(a[i]:5)

end;

writeln;

for i:=1 to n do if a[i] mod 2 = 0 then a[i]:=1111;

write ('   Новый массив:');

for i:=1 to n do write(a[i]:5)

end.

3)

const n=10;

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

i:integer;

begin

write('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(199)-99;

write(a[i]:5)

end;

writeln;

for i:=1 to n do if a[i] < 0 then a[i]:=a[i]-5;

write ('   Новый массив:');

for i:=1 to n do write(a[i]:5)

end.

4)

const n=20;

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

i:integer;

begin

write('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(22);

write(a[i]:3)

end;

writeln;

for i:=1 to n do if a[i] mod 7 = 0 then a[i]:=22;

write ('   Новый массив:');

for i:=1 to n do write(a[i]:3)

end.

5)

const n=13;

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

i,min:integer;

begin

write('    Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i]:3)

end;

writeln;

min:=1;

for i:=2 to n do if a[i] < a[min] then min:=i;

writeln ('Минимальный элемент: ',a[min]);

a[min]:=77;

write ('       Новый массив:');

for i:=1 to n do write(a[i]:3)

end.

Объяснение: