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

Question

Информатика

Николаша

19 августа, 00:51

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

+2

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