Задать массив из 10 элементов случайным набором из отрезка [5;20] и вывести его на экран. Найти наименьший элемент и вывести его номер.
10-11 класс
|
var
a : array [1..10] of integer;
i, m : integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random (16) + 5;
write (a[i], ' ');
end;
writeln;
m := 1;
for i := 2 to 10 do
if (a[i] < a[m]) then m := i;
write (m);
end.
Другие вопросы из категории
a[1]:=34;
for i:=2 to 10 do a[i]:=a[i-1]+2*i;
writeln(a[9]);
В ответ введите число.
каждой странице 64 строки по 32символа в строке
b:=mod(a,b)+4
c:=mod(a,b)+1
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Выведите на экран исходный и полученный массив. На Паскале
нечетные индексы. Выведите на экран исходный массив и полученное произведение.
Удвоить все элементы матрицы и вывести ее на экран.
Найти минимальные и максимальные элементы в матрице, указать номера.
Просто матрица и удвоенная есть. Теперь нужно найти мин. и макс. значения
program ff;
uses crt;
const n=8;
m= 5;
var a:array [1..n, 1..m] of integer;
i,j:integer;
begin
writeln ('Матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 do begin a[i,j]:=-10+random(21);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
for j:=1 to 5 do
a[i,j]:=a[i,j]*2;
writeln ('Удвоенная матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 dowrite(a[i,j]:4);
writeln;
end;
end.