• дан целочисленный массив на n элементов вывести на экран элементы, которые меньше или равны своему номеру.
    Заранее спасибо

Ответы 2

  • const n=15; var a:array[1..n] of integer;i:integer; beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(16); write(a[i]:3); end;writeln;for i:=1 to n do  if a[i]<=i then write(a[i]:3) else write(' ':3);writeln;end.Пример:Массив A: 14  8 14  1  6  2  4  7 10  3  4  6 15 14  2           1     2  4  7     3  4  6    14  2
  • // PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var a:=ArrRandom(ReadInteger('n='),-20,20);  a.Println;  a.Where((x,i)->x<=i+1).Printlnend.Тестовое решение:n= 15-16 7 -17 -9 6 3 2 20 -15 7 -10 10 -6 -19 1-16 -17 -9 3 2 -15 7 -10 10 -6 -19 1
    • Автор:

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

Войти через Google

или

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

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

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