Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
<span>import java.lang.*<span>;
</span>import java.util.*<span>;
</span>import java.math.*<span>;
</span>
class Brainly{
public static void main(String[] args){
int m, n<span>;
</span> Scanner sc = new Scanner(System.in)<span>;
</span>
System.out.print("Enter m: "); m = sc.nextInt()<span>;
</span> System.out.print("Enter n: "); n = sc.nextInt()<span>;
</span>
int A[][] = new int[m][n]<span>;
</span>
for(int i = 0; i < m; i++){
for(int j = 0; j < n; j++){
float random = (float) Math.random()<span>;
</span> random *= -100<span>;
</span> int rand = (int) Math.ceil(random) + 200<span>;;
</span>
if((i + j) == rand){
System.out.println("A: " + i + " " + j)<span>;
</span> }<span>;
</span> }<span>;
</span> }<span>;
</span> }<span>;
</span>}</span>
uses crt;
var a:array[1..99,1..99] of integer;
m,n,s,i,j:integer;
begin
write('Введите m и n: ');
readln(m,n);
writeln('Исходная матрица: ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(10-(-10)+1)-10;
write(a[i,j]:3);
end;
writeln;
end;
s:=0;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]<0 then s:=s+1;
end;
if s=2 then begin writeln('Строка с двумя отрицательными элементами есть'); halt; end; {если нужная строка найдена, программа выдаёт надпись о её нахождении и немедленно завершается}
s:=0;
end;
writeln('Строки с двумя отрицательными элементами нет');
end.
Программирование
интернет
накопитель
<span>ОЗП - так звана пам'ять з відкритим доступом (так звана "оперативка").
Вона використовується для збереження даних програм (машинного коду) під час роботи комп'ютера.</span>