Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0
function Gcd(a,b: longint): longint; { Нахождение НОД } var i: longint; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; gcd := a end;
procedure ShortFraction(var m,n:longint); var k:longint; begin k:=Gcd(m,n); m:=m div k; n:=n div k end;
var a,b:longint; begin Write('Введите числитель и знаменатель дроби: '); Readln(a,b); ShortFraction(a,b); Writeln('Дробь после сокращения равна ',a,'/',b) end.
Тестовое решение: Введите числитель и знаменатель дроби: 25 15 Дробь после сокращения равна 5/3
{ код на Паскале }
program Prog;
var a: array[1..10] of Integer;
i: Integer;
begin
randomize;
for i := 1 to 10 do
a[i]:=random(10)+1;
{ вывод изначального массива }
for i := 1 to 10 do
write(a[i],' ');
writeln;
{ преобразования }
for i := 1 to 10 do
if ( (a[i] mod 2) = 1 ) then
a[i]*=3
else
a[i]:=0;
{ вывод измененного массива }
for i := 1 to 10 do
write(a[i],' ');
end.