Задать вопрос
ИнформатикаИнформатика
18 января, 03:06

Составить программу для решения следующей задачи: Дан массив целых чисел, заполненный случайными числами в диапазоне [-100, 100]. Замените все отрицательные элементы максимальным. Выведите на экран исходный и измененный массивы.

+4
Ответы (1)
  1. 18 января, 04:33
    0
    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.

    Program Z1;

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

    c, n:integer;

    begin

    write ('элементы массива? ');

    for c : = 1 to 10 do

    read (a[c]);

    for c : = 1 to 10 do

    if (a[c] mod 3) = 0 then inc (n);

    write ('кратных трем: ', n);

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Составить программу для решения следующей задачи: Дан массив целых чисел, заполненный случайными числами в диапазоне [-100, 100]. Замените ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Составьте программу, которая заполняет массив а[1 ... 10] случайными целыми числами в диапозоне от 0 до 10, затем первый элемент меняет местами с максимальным элементом. Выведите на экран исходный и полученный массивы.
Ответы (1)
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными индексами. выведите на экран исходный массив и полученное среднее арифметическое. 2.
Ответы (1)
1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и полученную сумму. 2. Дан массив В (n). Определите произведение элементов, кратных 3.
Ответы (1)
1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3.
Ответы (1)
1) Написать программу, которая вводит массив из 10 целых чисел и выводит на экран этот же массив в прямом и обратном порядке.
Ответы (1)
Нужен ответ
Из данных слов Выпиши имена существительные сильный зима, найти, дерево, рисовать, красивый, воробей, река, ручной, решать, подснежник, показаться.
Нет ответа
В санатории привезли апельсины мандарины и лимоны апельсины составляет пять четырнадцатых всех фруктов мандарины восемь 21-й, а лимоны остальные 99 кг сколько килограммов фруктов привезли в санаторий
Нет ответа
Расположите числа 5,28; - 1,634; - 1,34; - 1, (3); 2,3 (4) и 2, (34) в порядке убывания
Нет ответа
сравнить природные условия финикии древнего египта и индии
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Главная » Информатика » Составить программу для решения следующей задачи: Дан массив целых чисел, заполненный случайными числами в диапазоне [-100, 100]. Замените все отрицательные элементы максимальным. Выведите на экран исходный и измененный массивы.
Регистрация Забыл пароль