Информатика 11 класс
Помогите срочно!!!!!!
Ответы
Ответ:
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.
Объяснение:
2) как получен исходный массив?