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

Question

Информатика

Толюся

14 февраля, 12:51

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

+3

Ответы (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.