1) Удвоить все элементы массива.2)Отыскать сумму частей 2-ух массивов схожей
1) Удвоить все элементы массива.
2)Отыскать сумму частей двух массивов одинаковой размерности.
4) Отыскать Малые элементы массива и его индекс.
5) Найти наибольшие элементы среди положительных частей массива 6) Отыскать наибольшие элементы посреди отрицательных частей массива
7) Найти количество максимальных частей массива
P.S Ребят, все в паскале...заблаговременно спасибо=*
Задать свой вопрос
var
a:array[1..10,1..10] of integer;
b:array[1..10,1..10] of integer;
sum:array[1..10,1..10] of integer;
pol,otr,max,min:real;
i,j,indexi,indexj:integer;
begin
min:=0;
max:=0;
randomize;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
randomize;
a[i,j]:=random(51);
randomize;
b[i,j]:=random(51);
a[i,j]:=a[i,j]*2;
writeln(a[i,j]);
a[i,j]:=a[i,j]/2;
end;
end;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
a[i,j]:=a[i,j]+b[i,j];
writeln(a[i,j]);
a[i,j]:=a[i,j]-b[i,j];
end;
end;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if a[i,j]lt;min then
begin
min:=a[i,j];
indexi:=i;
indexj:=j;
end;
end;
end;
writeln(min,indexi,indexj);
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if (a[i,j]gt;0) and (a[i,j]gt;max) then
max:=a[i,j];
end;
end;
writeln(max);
max:=0;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if (a[i,j]lt;0) and (a[i,j]gt;max) then max:=a[i,j];
end;
end;
writeln(max);
end.
программка исполняет сходу все 7 пт. Значения задаются сами. На выходе с каждой строчки Вы получите каждый пункт задания.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.