Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем два максимальных элемента и их номера. Пример: Исходный массив:
10-11 класс
|
.. максимальные a[4]=10, a[7]=8
program pr;
label l;
var mas:array[1..10] of integer;
i,k,n,b,sum:integer;
begin
randomize;
for i:=1 to 10 do mas[i]:=round((10-(-10))*random+(-10));
l:
for i:=1 to 10 do
begin
if n<mas[i] then
begin
n:=mas[i];
k:=i;
end;
end;
writeln ('a[',k,']=',n);
mas[k]:=-11;
n:=0;
k:=0;
if b=0 then
begin
b:=1;
goto l;
end;
readln;
end.
Программу проверил все работает
Другие вопросы из категории
Надо написать на Паскале
Вычислить сумму всех элементов двумерного массива.
Напишите, пожалуйста, программу.
0,sin(0,1x) для х больше равно 0. Построить график полученной функции. Спасибо заранее
Читайте также
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8
Удвоить все элементы матрицы и вывести ее на экран.
Найти минимальные и максимальные элементы в матрице, указать номера.
Просто матрица и удвоенная есть. Теперь нужно найти мин. и макс. значения
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.
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
случайными числами в интервале от 0 до 4 и вывести номера всех элементов, равных X.
Пример:
Исходный массив:
4 0 1 2 0 1 3 4 1 0
Что ищем? 0
A[2], A[5], A[10]
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!