написать программу на паскаль:
10-11 класс
|
Найти произведение наибольших элементов двумерного массива, первый элемент которого отрицателен.
Если имеется в виду произведение наибольших в каждой строке элементов, то тогда так:
var
i,j,p:integer;
max:array[1..5]of integer;
a:array[1..5,1..5]of integer;
begin
p:=1;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(-10,10);
a[1,1]:=random(-10,-1);
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(a[i,j]:4);
if a[i,j]>max[i] then max[i]:=a[i,j];
end;
p:=p*max[i];
writeln;
end;
writeln('P=',p);
end.
Другие вопросы из категории
3,0,1,7,4,5,6,2,9,0.
Как изменится порядок элементов после выполнения фрагмента Паскаль-программы описанного ниже?
...
for i:=1 to 5 do
begin
t:=a[i];
a[i]:=a[11-i];
a[11-i]:=t;
end;
...
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.