1. в вещественной таблице а[1: 10] найдите количество всех положительных элементов. 2. для линейной - id667026420220831 от timirshan 31.08.2022 07:48

Question

Информатика: 1. в вещественной таблице а[1: 10] найдите количество всех положительных элементов. 2. для линейной вещественной таблицы в[1: 10] найдите сумму всех элементов которые кратны 3. 3. дана вещественная таблица [1: 20]. замените каждый элемент этой таблицы на его квадрат. 4. даны два массива одного размера. получить третий массив, того же размера по правилу: четный элемент третьего массива равен разности между максимальным элементом второго массива и порядковым элементом из первого массива, а нечетный-равен

timirshan · Accepted Answer

Уровень А type   num=integer; { можно поменять на real, longint, даже char... } procedure Swap(var a,b:num); { меняет местами значения a и b } var   t:num; begin   t:=a; a:=b; b:=t end; procedure Moving(var a,b,c:num); begin   if a b then begin     Swap(a,b);     if b c then begin       Swap(b,c);       if a b then Swap(a,b)     end   end   else begin     if b c then Swap(b,c);     if a b then Swap(a,b)   end end; var   a,b,c:num; begin   Write( Введите три числа: ); Read(a,b,c);   Moving(a,b,c);...

MOGZ ответил