Что конкретно не получается? Ничего сложного же нет.
Quote
1) задан одномерный массив.поменять местами наибольшие и наименьшие элементы этого массива.
Ищем индексы этих элементов(практически тоже самое, что и просто найти сами max и min элементы) и меняем элементы с этими индексами местами.
Quote
задан массив из 20 элементов. найти в этом массиве наиболее часто встречаемое число.
Code
a: array[0..19] of integer;
i,j,k,x,k1,: integer;
begin
clrscr;
for i:=0 to 19 do
readln(a[i]);
for i:=0 to 19 do
begin
for j:=0 to 19 do
if (a[i]=a[j]) then
k:=k+1;
if (k>k1) then
x:=a[i];
k1:=k;
k:=0;
end;
writeln(x);
end.
Quote
3)(двумерный массив) задана квадратная матрица(7 на 7) элементы матрицы вводятся с клавиатуры. Вычислить сумму и число положительных элементов матрицы находящиеся над главной диагональю.
Элементы над главной диагональю имеют индексы такие, что столбец>= строка(если я ничего не путаю). Ну а найти сумму и колво просто.
Quote
4)задана прямоугольная матрица(4 на 7). Найти max элемент матрицы и го индексы.
То же самое, что и в первой задаче, только будет два цикла
RSS: