Нужна программа на языке программирования Pascal.Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 128).1)Заполнить и
Нужна программа на языке программирования Pascal. Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 128). 1)Заполнить и записать матрицу. 2)Определит число элементов больших 18 и меньших 60. заменить их на 0.затем записать получившуюся матрицу. 3)Определить произведение главной диагонали и вывести эти элементы на экран. 4)Реализовать определение суммы элементов любого столбца. <span>Спасибо.</span>
Значит так...очередная нудная программа с простым алгоритмом.
Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s.
program test; uses crt; var arr:array[1..8,1..8] of integer; i,j,cou,pr,s,sum:integer; begin clrscr; randomize; pr:=1; s:=7; for i:=1 to 8 do begin for j:=1 to 8 do begin arr[i,j]:=random(127)+2; write(arr[i,j],' '); end; writeln; end;
writeln; for i:=1 to 8 do for j:=1 to 8 do begin if (arr[i,j]>18) and (arr[i,j]<60) then begin cou:=cou+1; arr[i,j]:=0; end;
if i=j then begin pr:=pr+arr[i,j]; write(arr[i,j],' '); end;
if j=s then sum:=sum+arr[i,j]; end; writeln;writeln; for i:=1 to 8 do begin for j:=1 to 8 do write(arr[i,j],' '); writeln; end; writeln; writeln(cou); writeln(pr); writeln(sum); readln; end.
Var k, m, num: integer; Dat: array[1..10] of integer;
Begin Dat[1] := -7; Dat[2] := -8; Dat[3] := 3; Dat[4] := 6; Dat[5] := -4; Dat[6] := 3; Dat[7] := 5; Dat[8] := 5; Dat[9] := 7;Dat[10] := 1; num:=1; m := Dat[1]; for k := 2 to 10 do if Dat [ k] *m< 0 then begin m := Dat[k]; num:= k end; writeln(m); End.