profile
Размещено 5 лет назад по предмету Информатика от gesdes13

Пожалуйста, помогите решить задачи по информатике на языке паскаля:
1. Дан массив из 7 целых чисел, которые могут принимать значения от -1 до 50. Все элементы, кратные 3, замените на 0. Найдите количество элементов, равных 7.
2. Дан массив из 10 целых чисел, которые могут принимать значения от 0 до 70. Найти: 1) сумму элементов массива;

  1. Ответ на вопрос
    Ответ на вопрос дан MrSolution

    Ответ:

    (см. объяснение)

    Объяснение:

    Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности Pascal, которые позволяют решить ее в 1 строчку кода.

    Задание №1:

    program task1;

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

       i,k: integer;

    begin

     randomize;

     k:= 0;

     for i:= 1 to 7

       do begin

           a[i]:= random(50)-1;

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

           else if(a[i] = 7) then k:= k+1;

          end;

     write('Массив с замененными числами: ');

     println(a);

     writeln('Количество элементов, равных 7: ', k);

    end.

    Задание №2:

    begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.

    1. Ответ на вопрос
      Ответ на вопрос дан MrSolution
      Можно даже с так написать: begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.