Составьте программу, которая формирует массив, содержащий 15 ...

Question

Составьте программу, которая формирует массив, содержащий 15 ...

Дмитрий

Составьте программу, которая формирует массив, содержащий 15 случайныхцелых чисел, принадлежащих промежутку [0;8] и преобразует элементы массива по следующему правилу: к четному числу прибавляет 1, а нечетное умножает на 2.

Есть ответ

17.12.2022

357

Ответ

Answer 1 · 17.12.2022

Program Frank;const n=15;Type mas=array[1..n] of integer;var a:mas;i:integer;beginfor i:=1 to n do begina[i]:=random(8);write(' ',a[i]);end;for i:=1 to n do beginif a[i] mod 2=0 then a[i]:=a[i]+1else a[i]:=a[i]*2;write(' Получили ',a[i]);end;end.

end.

Составьте программу, которая формирует массив, содержащий 15 ...

Ответ

Program Frank;const n=15;Type mas=array[1..n] of integer;var a:mas;i:integer;beginfor i:=1 to n do begina[i]:=random(8);write(' ',a[i]);end;for i:=1 to n do beginif a[i] mod 2=0 then a[i]:=a[i]+1else a[i]:=a[i]*2;write(' Получили ',a[i]);end;end. end.

Program Frank;const n=15;Type mas=array[1..n] of integer;var a:mas;i:integer;beginfor i:=1 to n do begina[i]:=random(8);write(' ',a[i]);end;for i:=1 to n do beginif a[i] mod 2=0 then a[i]:=a[i]+1else a[i]:=a[i]*2;write(' Получили ',a[i]);end;end.

end.