Винформатике - виды информации, а так органы чувств.
aivanova
09.02.2022
Вид информации по способу восприятия
lagutkins
09.02.2022
Var i, s: integer; a: array[1..10] of integer; begin for i : = 1 to 10 do begin a[i] : = random(10) - 5; if(a[i] < 0) and (i mod 2 = 0) then s : = s + a[i]; write(a[i]: 3); end; writeln(#10, 'сумма отрицательных элементов: ', s); end.
Amelin-Alipova
09.02.2022
Const n1 = 20; m1 = 20; var a: array[1..n1, 1..m1] of integer; b: array[1..m1] of integer; i, j, m, n: integer; begin write('введите через пробел число строк и столбцов массива: '); readln(n, m); randomize; writeln('исходный массив'); for i : = 1 to n do begin for j : = 1 to m do begin a[i, j] : = random(101) - 50; write(a[i, j]: 4) end; writeln end; writeln('сформированный массив'); for j : = 1 to m do begin i : = 1; while (i < = n) and (a[i, j] > = 0) do i : = i + 1; if i < = n then b[j] : = a[i, j] else b[j] : = -99; write(b[j]: 4) end; writeln end. тестовое решение: введите через пробел число строк и столбцов массива: 3 10 исходный массив -11 -18 -42 -22 -9 2 21 15 40 -3 4 -5 40 -13 -44 -37 43 47 1 -39 20 50 21 -18 -10 6 12 -10 43 -37 сформированный массив -11 -18 -42 -22 -9 -37 -99 -10 -99 -3
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Осязание обоняние вкус слух зрение все вместе одним словом как?