Опубликовано 03.01.2018 по предмету Информатика от Гость

1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.

Ответ оставил Гость

1)const nmax=50; mmax=50;var x:array [1..nmax, 1..mmax] of integer;n,m,i,j,ki: integer; begin write(Введите размерность матрицы: ); readln(n,m); writeln(Введите элементы матрицы: ); for i:=1 to n do for j:=1 to m do readln(x[i,j]); writeln(Матрица: ); for i:=1 to n do begin for j:=1 to m do write(x[i,j]); writeln( ); end; j:=1; while (j<=m) do begin ki:=0; for i:=1 to n do if (x[i,j] mod 2 =0) then ki:=ki+1; writeln(В столбце,j,: ,ki, чётных элементов); j:=j+2; end;end.
2)for i:=1 to 5 do beginfor j:=1 to 5 do begin...if (j mod 2=0) and (a[i,j]>0) then s:=s+a[i];...
3)int[,] mass = new int[5,6];for(int i=0;i<5;i++){ for(int j=0;j<6;j++) mass[i,j]=Convert.ToInt32(Console.ReadLine());}int [] mass2 =new int[6];int c=0;for(int i=0;i<6;i++){ mass2[c]=1; for(int j=0;j<5;j++) {if(mass[j,i]%2==0&&mass[i,j]>0) mass2[c]*=mass[j,i]} c++;}for(int i=0;i<6;i++){ Console.WriteLine(mass2[i]);}Console.ReadLine();