дан двумерный массив 7х8. найти сумму положительных элементов в каждой строке. определить наибольший элемент 1-го столбца(значение и координаты)
10-11 класс
|
var
i,j,im,max,s:integer;
a:array[1..7,1..8]of integer;
begin
for i:=1 to 7 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random(-10,10);
write(a[i,j]:4);
if a[i,j]>0 then s:=s+a[i,j];
if (j=1) and (a[i,j]>max) then
begin
max:=a[i,j];
im:=i;
end;
end;
writeln(' s=',s);
s:=0;
end;
writeln('a(',im,',1)=',max);
end.
Другие вопросы из категории
B = m(m-1)(m-2) … (m-(n-1))
2)Вывести на экран элементы массива, стоящие на четных местах, вычислить их сумму (Вмассиве 20 элементов, заполнен случайными числами.)
3)
Читайте также
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
, ..., amN.. Найти сумму элементов на нечетных местах массива и произведение элементов на четных местах массива.
а размером n*n. В каждой строке изменить значения элементов, стоящих за минимальным элементом этой строки, на 1
квадратная матрица а). Найти сумму номеров минимального и максимального элементов её главной диагонали.