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

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

+1
Ответы (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)
Нужен ответ
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Известно, что sina+cosa=a. Найдите sin2a
Нет ответа
Решите уравнение (x^2-5x+7) ^2 - (x-2) (x-3) = 1
Нет ответа
дан параллелограм АВСD. O-точка пересечения диагоналей. Найдите векторы OD-OC, 2BO + DA, CD+DB+BA
Нет ответа
1/2 это ... 4 1/3 это ... (в десятичных дробях)
Нет ответа
Главная » Информатика » Составить программу для решения следующей задачи: Дан массив целых чисел, заполненный случайными числами в диапазоне [-100, 100]. Замените все отрицательные элементы максимальным. Выведите на экран исходный и измененный массивы.
Регистрация Забыл пароль