Дана матрица а(3,3), найти количество положительных элементов матрицы, сформировать новую матрицу х(3,4), элементы которой получены из элемнтов а путём деления их на найденное количество. матрицы а и х вывести по строкам
const a: array [1..4, 1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
var i, j: integer;
begin writeln('matrix:'); for i := 1 to 4 do begin for j := 1 to 4 do write(a[i,j]:4); writeln; end; writeln; writeln('main diagonal sum: ', a[1,1] + a[2,2] + a[3,3] + a[4,4]); end.
Function prime(x:integer):boolean; var t:boolean; d:integer; begin t := true; d := 2; while t and (d*d <= x) do begin if x mod d = 0 then t := false; d := d + 1 end; prime := t end;
function order(x:integer):boolean; var t:boolean; d:integer; begin d := -1; repeat t := x mod 10 > d; d := x mod 10; x := x div 10 until not t or (x = 0); order := t end;
var t:boolean; i,k,n:integer; begin t := false; read(k,n); for i := k to n do if prime(i) then if order(i) then begin write(i,' '); t := true end; if not t then write(0) end.
1.НАЧАЛО 2.Взять чистую сковороду 3.Поставить сковороду на огонь. 4.Налить немного масла 5.Если масло разогрелось, то перейти к шагу 8 6.Подождать 2 минуты 7.Перейти к шагу 5. 8. Разбить на сковороду 3 яйца 9. Уменьшить огонь до минимума 10. Посолить яичницу 11. Накрыть сковороду крышкой (я люблю прожаренные и сверху) 12. Подождать 7 минут. 13. Снять сковороду с огня. 14. Выложить яичницу на тарелку. 15. Положить на тарелку по вкусу майонез, лук, колбасу и проч. 16. Приятного аппетита! 17. КОНЕЦ
const
a: array [1..4, 1..4] of integer =
((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
var
i, j: integer;
begin
writeln('matrix:');
for i := 1 to 4 do begin
for j := 1 to 4 do write(a[i,j]:4);
writeln;
end;
writeln;
writeln('main diagonal sum: ', a[1,1] + a[2,2] + a[3,3] + a[4,4]);
end.