a) Составьте программку, которая наполняет массив a[10..20] случайными целыми числами в
A) Составьте программу, которая заполняет массив a[10..20] случайными целыми числами в диапазоне от 10 до 20, потом преобразовывает его, увеличивая все элементы с четными значениями на 1. Если элементы с четными значениями отсутствуют, бросить массив без конфигураций. (Вывести Начальный и Перевоплощенные массивы в строку)
б) Составьте программку, которая наполняет массив a[10..20] случайными целыми числами в спектре от 10 до 20, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями сменяя на 0. (Вывести Начальный и Перевоплощенные массивы в строку)
max,min,i,x:integer;
m:array[10..20] of integer;
begin
min:=10;
max:=10;
randomize;
for i:=10 to 20 do m[i]:=random(10)+10;
for i:=10 to 20 do write(m[i],' ');
writeln;
for i:=10 to 20 do
begin
if ( m[i] mod 2) = 0 then m[i]:=m[i]+1;end;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.
2)
var
max,min,i,x:integer;
m:array[10..20] of integer;
begin
min:=10;
max:=10;
randomize;
for i:=10 to 20 do m[i]:=random(10)+10;
for i:=10 to 20 do write(m[i],' ');
writeln;
for i:=10 to 20 do
begin
if ( m[i] mod 2) = 0 then m[i]:=0 else m[i]:=m[i]*3;
end;
for i:=10 to 20 do write(m[i],' ');
writeln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.