Нужна программа на языке программирования 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.
Пусть x - количество плацкартных вагонов. Вероятность того, что выбора плацкартного вагона p = x/28 I = log(2)[1/p] log(2)[1 / (x/28)] = 2 ⇒ 28/x = 4 ⇒ x = 7 Ответ: в поезде 7 плацкартных вагонов
Var n,m,k,i,l,max,min:longint; begin max:=-maxlongint; min:=maxlongint; readln(n); for i:=1 to n do begin readln(n); if n>max then max:=n; if n<min then min:=n; end; writeln('Самый высокий ',max); writeln('Самый низкий ',min); end.