//Блок-схема во вложении //Pascal ABC.NET v3.1 сборка 1172
Var ma:array of array of integer; i,j,r,n,m,s:integer; begin randomize; readln(n); readln(m); setlength(ma,n); for i:=0 to n-1 do setlength(ma[i],m); writeln('Matrix:'); for i:=0 to n-1 do begin writeln; for j:=0 to m-1 do begin ma[i,j]:=random(50); write(ma[i,j]:4); end; end; writeln; writeln('Res:'); for i:=0 to n-1 do begin for j:=0 to m-1 do s:=s+ma[i,j]; writeln(i+1,' ',s); s:=0; end; end.
Первый ищем положительные элементы и меняем им знак)
Программа:
const MAX_N = 1000; // Максимальное количество элементов в массиве
var a: array[1..MAX_N] of integer; i, n: integer; begin // Ввод массива write('Введите размерность массива: '); read(n); writeln('Введите массив: '); for i := 1 to n do read(a[i]); // Обработка массива for i := 1 to n do // Если элемент положительный, то меняем знак if a[i] > 0 then a[i] := -a[i]; // Вывод массива writeln('Полученный массив:'); for i := 1 to n do write(a[i], ' ') end.
Второй каждому элементу присваиваем обратное его модулю число)
Программа:
const MAX_N = 1000; // Максимальное количество элементов в массиве
var a: array[1..MAX_N] of integer; i, n: integer; begin // Ввод массива write('Введите размерность массива: '); read(n); writeln('Введите массив: '); for i := 1 to n do read(a[i]); // Обработка массива for i := 1 to n do a[i] := -abs(a[i]); // Вывод массива writeln('Полученный массив:'); for i := 1 to n do write(a[i], ' ') end.
Все ответы правильные
Объяснение:
у спрайта есть имя
у спрайта есть положение на сцене
у спрайта есть свои размеры