Задать вопрос
3 ноября, 03:28

Составьте программу (в паскале), которая заполнит массив a[1 ... 16]случайными целыми числами в диапазоне от - 20 до 20, выводит на экран исходный массив, затем преобразовывает его, увеличивая в 2 раза все числа, кратные 5, а остальные уменьшает на 10. Затем выводит на экран преобразованный массив.

+4
Ответы (1)
  1. 3 ноября, 06:49
    0
    const n=16;

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

    i:integer;

    begin

    for i:=1 to n do a[i]:=random (41) - 20;

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

    for i:=1 to n do write (a[i]:5) ;

    writeln;

    for i:=1 to n do

    if a[i] mod 5 = 0 then a[i]:=a[i]*2 else a[i]:=a[i]-10;

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

    for i:=1 to n do write (a[i]:5)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу (в паскале), которая заполнит массив a[1 ... 16]случайными целыми числами в диапазоне от - 20 до 20, выводит на экран ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы