Помогите сделать в ABC Pascal Задайте массив из 10 элементов с помощью датчика случайных чисел. Выведите на экран исходный массив и те элементы, которые
10-11 класс
|
больше 25, а также их индексы.
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.
Другие вопросы из категории
составных высказываний истинны?
1) 2) 3) 4) 5) 6)-многопользовательская, многозадачная, 32-разрядная ОС
-однопользовательская, однозадачная, 16-разрядная ОС
-многопользовательская, однозадачная, 32-разрядная ОС
-однопользовательская, многозадачная, 32-разрядная ОС
-многопользовательская, многозадачная, 16-разрядная ОС
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Выведите на экран исходный и полученный массив. На Паскале
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите разность наибольшего и наименьшего элементов. Выведите на экран полученный массив и полученную разность.