Дан одномерный массив.

вывести на экран числа больше пяти.

Question

Информатика

Корнюша

29 апреля, 08:04

Дан одномерный массив.

вывести на экран числа больше пяти.

+1

Ответы (1)

Знаете ответ на вопрос?

Иваха · Answer 1

Uses Crt;

Const

N = 13;

Var

A:array[1 ... N] of integer;

i:integer;

Begin

ClrScr;

Randomize;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

A[i]:=random (2*N+1) - N;

Write (' ', A[i]) ;

End;

WriteLn;

Write ('Искомые элементы: ') ;

For i: = 1 to N do

if A[i]>5 then Write (' ', A[i]) ;

ReadLn

End.

Дан одномерный массив.вывести на экран числа больше пяти.

Дан одномерный массив.

вывести на экран числа больше пяти.