• составьте программу вычисления произведения последних четырех элементов одномерного массива A(N), заполнив его случайным образом

Ответы 6

  • println итд не примет нужно через writeln
    • Автор:

      oren
    • 6 лет назад
    • 0
  • Вы какой версией языка пользуетесь?
    • Автор:

      nikki2
    • 6 лет назад
    • 0
  • 5.1. 2006
    • Автор:

      nathan68
    • 6 лет назад
    • 0
  • Минут через 5 добавлю в решение одругой вариант
    • Автор:

      hart
    • 6 лет назад
    • 0
  • Готово, смотрите вариант №2
  • Вариант №1//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)begin  var n:=ReadInteger('Размер массива: ');  var a:=ArrRandom(n);  a.Println;  var p:=1;  for var i:=n-4 to n-1 do begin    p:=p*a[i];  end;  println(p);end.Тестовое решение:Размер массива:  1026 65 88 43 49 93 67 40 16 843601920 Вариант №2const k = 100;var a:array [1..k] of integer;i,p,n:integer;begin  p:=1;  readln(n);  for i:=1 to n do begin    a[i]:=random(21)-10;    write(a[i]:4);    if i>n-4 then p:=p*a[i];  end;  writeln;  writeln(p);end.Тестовое решение:10  -8   6   1   3   1 -10  -3   2   2   2-24
    • Автор:

      katrina14
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years