Помогите сделать в ABC Pascal Задайте массив из 10 элементов с помощью датчика случайных чисел. Выведите на экран исходный массив и те элементы, которые больше 25, а также их индексы.

Question

Информатика

Каллиопий

19 февраля, 14:15

Помогите сделать в ABC Pascal Задайте массив из 10 элементов с помощью датчика случайных чисел. Выведите на экран исходный массив и те элементы, которые больше 25, а также их индексы.

+4

Ответы (1)

Знаете ответ?

Поляна · Answer 1

uses crt;

var a:array[1 ... 10] of real; i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=random (100) ;

if (a[i]>25) then writeln ('element ', a[i],', index ', i) ;

end;

end.