М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
grinanovatana2
grinanovatana2
26.07.2020 09:27 •  Информатика

Массив из 10 элементов заполняется генератором случайных чисел в диапазоне от 1 до 10.найти среднее арифметическое только четных элементов.

👇
Ответ:
XXL18
XXL18
26.07.2020
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,1,10); a.Println;
  Writeln('Среднее элементов с четным значением: ',
    a.Where(x->x.IsEven).Average);
  Writeln('Среднее элементов с четным номером: ',
    a.Where((x,i)->i.IsOdd).Average)
end.

Пример
9 1 4 8 2 1 10 7 8 5
Среднее элементов с четным значением: 6.4
Среднее элементов с четным номером: 4.4
4,4(71 оценок)
Ответ:
28ByaKa28
28ByaKa28
26.07.2020
var a:array[1..100] of integer; i,n,s,k:integer; sr:real; begin writeln('введите кол-во элементов массива'); readln(n); for i:=1 to n do begin a[i]:=random(101)-50; write(a[i]:4);end; writeln; for i:=1 to n do begin if a[i]>10 then write(a[i]:3); if (a[i] mod 2=0) then begin s:=s+a[i]; k:=k+1;end; end; sr:=s/k; writeln; writeln('сред арифмет=',sr:4:2); end.
4,7(90 оценок)
Открыть все ответы
Ответ:
vladaua2005p06s4b
vladaua2005p06s4b
26.07.2020
Const
  n = 8;

var
  i, j, umax, lmax: integer;
  a: array[1..n, 1..n] of integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(40) - 20;
      write(a[i, j]:4)
    end;
    writeln;
  end;
  umax := -100;
  for i := 1 to n do
    for j := i to n do
      if umax < a[i, j] then umax := a[i, j];
  lmax := -100;
  for i := 1 to n do
    for j := 1 to i do
      if lmax < a[i, j] then lmax := a[i, j];
  writeln('Разность максимумов равна ', umax - lmax)
end.

Тестовое решение:

Исходный массив
  -5  18 -13   1 -16   5   0 -13
   4 -18 -17 -14   2  10  -2 -15
 -15  -8  -6 -16 -10 -12 -18 -17
 -18   6  11  -5   4  -6  -1   1
  10  14   3  -7   2  11  10  -1
   6  -2 -20   1   4   9  13  -4
  -9  -7   4  -6 -12   3   1 -14
  15 -16  -1  -3  13 -15   3 -10
Разность максимумов равна 3
4,5(4 оценок)
Ответ:
Program abc;const a: array [1..5] of array [1..5] of integer = ((1, 15, 24, 8, 17),(9,18,2,11,25),(12,21,10,19,3),(20,4,13,22,6),(23,7,16,5,14));var i, j, x: integer; arr: array [1..12] of integer;begin

for i := 1 to 5 do begin x := 0; for j := 1 to 5 do x := x + a[i][j]; arr[i] := x; end; for i := 1 to 5 do begin x := 0; for j := 1 to 5 do begin
x := x + a[j][i]; end; arr[5+i] := x; end; x := 0; for i := 1 to 5 do begin x := x + a[i][i]; end; arr[11] := x; x := 0; for i := 1 to 5 do begin x := x + a[i][6 - i]; end; arr[12] := x; for i := 1 to 12 do begin if arr[i] <> x then begin writeln('Не магический'); break; end; if i = 12 then writeln('Магический.'); end; end.
4,8(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ