si0000
?>

Pascal.заполнить двумерный массив размерностью 10 на 10 случайными числами из промежутка [-150; 150].вывести его на экран в виде квадратной матрицы.найти сумму элементов массива, значения которых положительны.

Информатика

Ответы

Alekseeva_Khlistov

return n != 0 && n % 2 == 0 ? -n : n;

Оператор != - оператор равенства, возвращающий истину, если операнды не равны, и ложь иначе. n != 0 - значение условия "n не равно 0"

Оператор ?: - тернарный оператор, его запись имеет вид _условие_ ? _возвращаемое_значение_при_истинности_условия_ : _возвращаемое_значение_при_ложности_условия_ .

Операторы, использованные в выражении, по убыванию приоритета (операторы с равным приоритетом в одной строке):

унарный -

%

==      !=

&&

?:

А тогда return n != 0 && n % 2 == 0 ? -n : n; эквивалентно return ((n != 0) && ((n % 2) == 0)) ? (-n) : n;

Если n не равно 0 и дает остаток 0 при делении на 2 (т.е. четно), возвращается значение -n, иначе возвращается n.

borisova-valeriya
Программа на паскале: const n=5; var xy: array[1..n,1..2] of integer; i, j, imax, jmax: integer; r, max: real; begin randomize; for i: =1 to n do   begin   for j: =1 to 2 do     begin     xy[i,j]: =random(21)-10;     write(xy[i,j]: 4);     end;   writeln;   end; max: =0; for i: =1 to n-1 do    for j: =i+1 to n do     begin     r: =sqr(xy[i,1]-xy[j,1])+sqr(xy[i,2]-xy[j,2]);     if r> max then begin max: =r; imax: =i; jmax: =j; end;     end;   writeln('max = ',sqrt(r): 5: 2,', точки: ',imax,' - ',jmax); end. пример: -8   3 -8 -3  7   2  2 10-6 0max = 12.81, точки: 2 - 4ps. если нужно на c++ - обращайтесь.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Pascal.заполнить двумерный массив размерностью 10 на 10 случайными числами из промежутка [-150; 150].вывести его на экран в виде квадратной матрицы.найти сумму элементов массива, значения которых положительны.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Dmitrii sergei463
Maria095096
Sergeevna803
andyrvo
Kashtanov Anna
fakyou170
gullieta
mskatrinmadness
mtcover
Alekseevich1012
ПогальниковАлёна589
prianik6
Михайлов
kuchino09
ulechkaevseeva