Решить . линейные массивы. 1.замена.- переписать линейныймассив вещественных чисел b(30) в обратном порядке.

191

199

Посмотреть ответы 3

Ответы на вопрос:

SmartJager

Информатика

4,4(9 оценок)

Var a: array [1..30] of integer; i, k: integer; begin for i : = 1 to 30 do begin a[i] : = i; writeln('a[', i, '] => ', a[i]); end; writeln(); for i : = 1 to 15 do begin k : = a[i]; a[i] : = a[31 - i]; a[31 - i] : = k; end; for i : = 1 to 30 do writeln('a[', i, '] => ', a[i]); end.

SVETLANA098374

Информатика

4,5(64 оценок)

Visual basic.net imports system.console module module1 sub main() dim rnd as random = new random() dim a(30) as integer dim k as integer dim i as byte for i = 0 to a.length - 1 a(i) = i 'rnd.next(255) writeline("a({0}) => {1}", i, a(i)) next writeline() i = 0 for i = 0 to math.truncate(a.length / 2) k = a(i) a(i) = a(a.length - i - 1) a(a.length - i - 1) = k next for k = 0 to a.length - 1 writeline("a({0}) => {1}", k, a(k)) next readkey(false) end sub end module