Question

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

Answer 1

Ответ:

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

Объяснение:

Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности 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.

Answer 2

Конечно, я помогу вам с этими задачами на языке Паскаль. Вот решения:

Задача 1:

pascalCopy code
program Task1;

var
  arr: array[1..7] of Integer;
  i, countSevens: Integer;

begin
  countSevens := 0;

  // Заполнение массива
  for i := 1 to 7 do
  begin
    Write('Введите элемент массива arr[', i, ']: ');
    Readln(arr[i]);

    // Замена элементов, кратных 3, на 0
    if arr[i] mod 3 = 0 then
      arr[i] := 0;

    // Подсчет количества элементов, равных 7
    if arr[i] = 7 then
      countSevens := countSevens + 1;
  end;

  Writeln('Количество элементов, равных 7: ', countSevens);
end.

Задача 2:

pascalCopy code
program Task2;

var
  arr: array[1..10] of Integer;
  i, sum: Integer;

begin
  sum := 0;

  // Заполнение массива
  for i := 1 to 10 do
  begin
    Write('Введите элемент массива arr[', i, ']: ');
    Readln(arr[i]);
    sum := sum + arr[i]; // Подсчет суммы элементов
  end;

  Writeln('Сумма элементов массива: ', sum);
end.

Просто скопируйте каждое из этих решений в среду программирования на Паскале и выполните программу. Они выполняют описанные вами задачи.