Написать программу.дана матрица а, имеющая n строк и n столбцов. сформируйте два одномерных массива. в один перешлите четные, а в другой — нечетные элементы матрицы. выведите на экран все массивы. . нужна
Const n=5; var a:array[1..n,1..n] of integer; b,c:array[1..n*n] of integer; k1,k2,i,j:integer; begin k1:=0; k2:=0; for i:=1 to n do for j:=1 to n do begin read(a[i,j]); if odd(a[i,j]) then begin inc(k2); c[k2]:=a[i,j]; end else begin inc(k1); b[k1]:=a[i,j]; end; end; writeln('Четные'); for i:=1 to k1 do write(b[i],' '); writeln(); writeln('Нечетные'); for i:=1 to k2 do write(c[i],' '); end.
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию!
function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));
var x,y,L:array[1..4] of real; begin Writeln('Введите координаты четырех точек (парами х,y)'); for var i:=1 to 4 do Read(x[i],y[i]); for var i:=1 to 3 do L[i]:=Len(x[i],y[i],x[i+1],y[i+1]); L[4]:=Len(x[4],y[4],x[1],y[1]); var s:=0.0; for var i:=1 to 4 do s+=L[i]; Writeln('P=',s) end.
Пример Введите координаты четырех точек (парами х,y) -5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13 P=46.7405707422041
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.
1. Почему работа компьютера невозможна без операционной системы? Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере? 2. Какие операционные системы вы знаете? Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS 3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы,
4. Какие системы программирования вам известны? Pyton, C++ 5. Для специалистов какой профессии предназначены системы программирования? Программист, Специалист в области кибербезопасности
var a:array[1..n,1..n] of integer;
b,c:array[1..n*n] of integer;
k1,k2,i,j:integer;
begin
k1:=0;
k2:=0;
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if odd(a[i,j]) then begin inc(k2); c[k2]:=a[i,j]; end
else begin inc(k1); b[k1]:=a[i,j]; end;
end;
writeln('Четные');
for i:=1 to k1 do
write(b[i],' ');
writeln();
writeln('Нечетные');
for i:=1 to k2 do
write(c[i],' ');
end.