В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
kitkat2122
kitkat2122
02.12.2021 14:39 •  Информатика

Pascal. даны массивы a(m) и y(m), m≤16 . найти сумму s : s=a1ym+a2ym-1++amy1 . если s< 24 вывести ее на печать, в противном случае вывести на печать оба исходных массива.

Показать ответ
Ответ:
Dover1488
Dover1488
10.07.2020 10:17
Const
  n = 16;

var
  A, Y: array[1..n] of integer;
  i, m: integer;
  S: longint;

begin
  Write('Введите число элементов в массивах m<17: ');
  Readln(m);
  if not (m in [1..16]) then m := 16; { защита от дурака }
  Randomize;
  //Write('Элементы массива: ');
  S := 0;
  for i := 1 to m do
  begin
    A[i] := Random(51) - 25;
    Y[i] := Random(41) - 20;
    S := S + A[i] * Y[m - i + 1]
    //Write(x[i]:5)
  end;
  if S < 24 then Writeln('Искомая сумма равна ', S)
  else begin
    Write('Массив A: ');
    for i := 1 to m do Write(A[i]:4);
    Write(#13#10, 'Массив Y: ');
    for i := 1 to m do Write(Y[i]:4);
    Writeln
  end
end.

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

Введите число элементов в массивах m<17: 0
Массив A:    6  25   9  -4  11  10 -18  11  18 -11 -24   1  13  -3 -10   0
Массив Y:    1   0   6   9  14 -14   3  -6 -17 -19  11  16  11 -20   5  19

Введите число элементов в массивах m<17: 10
Массив A:    1   2   7   5   9 -16 -23  -4   5  -2
Массив Y:   -3  -5 -12 -20   2   1  -3  18  19 -17

Введите число элементов в массивах m<17: 10
Искомая сумма равна 1
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота