Регистрация
Помогитемне11111119
06.05.2023 17:34
Информатика
Есть ответ 👍

Массив из 10 элементов заполняется целыми числами. составьте программу, которая вычисляет среднее арифметическое элементов, заканчивающихся на цифру 7

130
476
Посмотреть ответы 2

Ответы на вопрос:

sinjay
sinjay
4,8(23 оценок)
Const k = 10; var a: array[1..k] of integer; s,i,n: integer; begin s: =0; n: =0; write('исходный массив: '); for i: = 1 to k do       begin       a[i]: =random(201)-100;       write(a[i],' ');       if a[i] mod 10 = 7 then             begin             s: =s+a[i];             n: =n+1             end;       end; writeln; if n = 0 then writeln('в массиве нет элементов, оканчивающихся на семь') else writeln('среднее арифметическое элементов, оканчивающихся на семь: ',s/n); end.
zhimagulova
zhimagulova
4,4(55 оценок)

const

  n = 3;

var

  a: array[1..n, 1..n, 1..n] of integer; //объявляем трехмерный массив размерности n x n x n

  i, j, k, max: integer;

begin

  randomize;

  max : = -maxint - 1; {присваисваем maxrcbvfkmyjve 'ktvtyne минимальное возможное значения типа integer}

  for i : = 1 to n do { с трех циклов проходим по всем элементам массива, чобственно тоже самое что и с двумерным массивом только еще 1 цикл}

  begin

      writeln;

      writeln('i = ', i); {выводм производится в виде нескольких квадратных матриц тут указывается номер каждой квадратной матрицы}

      for j : = 1 to n do

      begin

          for k : = 1 to n do

          begin

              a[i, j, k] : = random(21) - 10; // генерируем случайное значение от -10 до 10

              if a[i, j, k] > max then { если больше текущего максимального то станвится новым максимальным}

                  max : = a[i, j, k];

              write(a[i, j, k]: 4); //выводим элемент массива

          end;

          writeln;

      end;

  end;

  writeln('максимальный элемент массива равен ', max);

end.

 

 

Популярно: Информатика