Регистрация
lerailina30040
18.10.2022 18:15
Информатика
Есть ответ 👍

Составьте программу, которая формирует массив из двадцати случайных целыъ от -15 до 15 и уменьшает в 3 раза числа, кратные 3, а остальные увеличивает в 2 раза

285
392
Посмотреть ответы 2

Ответы на вопрос:

anuynilonoca
anuynilonoca
4,4(49 оценок)

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

i: integer;

begin

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

for i: =1 to 20 do

begin

a[i]: =random(31)-15;

write (a[i]: 3,' ')

end;

writeln;

write('преобразованый массив: ');

for i: =1 to 20 do

begin

if (a[i] mod 3 = 0) then a[i]: =a[i] div 3

else a[i]: = a[i]*2;

write (a[i]: 3,' ')

end

end.

Olga1618
Olga1618
4,6(47 оценок)

var

  d: integer;

  a,b: real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('введите номер операции '); readln(d);

  case d of

      1: writeln(a, ' + ', b, ' = ', a + b);

      2: writeln(a, ' - ', b, ' = ', a - b);

      3: writeln(a, ' * ', b, ' = ', a * b);

      4: begin

              if b < > 0 then

                  writeln(a, ' / ', b, ' = ', a / b)

            else

                  writeln('делить на 0 нельзя');

        end;

      else

            writeln('неизвестная операция');

  end;

end.

     

 

 

//вторая программа

 

var

  d: integer;

  a: real;

begin

  write('длина отрезка = '); readln(a);

  write('введите код единицы измерения '); readln(d);

  case d of

      1: writeln('длина отрезка ', a / 10, ' метр(а, ов)');

      2: writeln('длина отрезка ', a * 1000, ' метр(а, ов)');

      3: writeln('длина отрезка ', a, ' метр(а, ов)');

      4: writeln('длина отрезка ', a / 1000, ' метр(а, ов)');

      5: writeln('длина отрезка ', a / 100, ' метр(а, ов)');

      else

            writeln('неизвестная единица длины');

  end;

end.

Популярно: Информатика