Program Ainur59; uses crt; const n=10; var i,j:integer; matr:array[1..n,1..n] of integer; diag:array[1..n] of integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов'); randomize; writeln('Матрица: '); for i:=1 to n do begin for j:=1 to n do begin matr[i,j]:=random(100)-50; write(matr[i,j]:4,' '); if i=j then diag[i]:=matr[i,j]; end; writeln(); end; writeln(); writeln('Mассив диагональных элементов:'); for i:=1 to n do write(diag[i]:4,' '); end.
Паскаль АВС. Программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное.
Program Alyatu; uses crt; const n=4; var i,z,s:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Используя признак делимости, программа оперделяет делится ли введённое 4-значное число на 3'); writeln('Введите число'); repeat readln (z); until ((z>0) and (z<power(10,n))); for i:=1 to n do begin s:=s+z mod 10; z:=z div 10; end; if (s mod 3=0) then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); end.
Program Ainur59;
uses crt;
const n=10;
var
i,j:integer;
matr:array[1..n,1..n] of integer;
diag:array[1..n] of integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов');
randomize;
writeln('Матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
matr[i,j]:=random(100)-50;
write(matr[i,j]:4,' ');
if i=j then diag[i]:=matr[i,j];
end;
writeln();
end;
writeln();
writeln('Mассив диагональных элементов:');
for i:=1 to n do
write(diag[i]:4,' ');
end.