Кто профессионально занимается VBS???
отпишитесь
уровень для студента

230

267

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

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

IbroVine

Информатика

4,7(52 оценок)

1. дан массив a, состоящий из 8 элементов. получить массив b, в котором b[i] = a[i]*a[i] (1 < = i < =8). var a,b: array[1..8] of integer; i: integer; begin writeln('a: '); for i: =1 to 8 do begin a[i] : = random(10); write (a[i], ' ') end; writeln; writeln('b: '); for i: =1 to 8 do begin b[i] : = a[i]*a[i]; write (b[i], ' ') end; end. пример: a: 2 9 7 5 2 0 8 7 b: 4 81 49 25 4 0 64 492.var a: array[1..9] of integer; i: integer; beginwriteln('a: '); for i: =1 to 9 dobegin a[i] : = random(50)+10; write (a[i], ' ') end; writeln; for i: =1 to 9 do if a[i] mod 2 = 0 then writeln(a[i], ' - четное число') else writeln(a[i], ' - нечетное число')end.пример: a: 55 51 18 35 33 56 15 56 47 55 - нечетное число51 - нечетное число18 - четное число35 - нечетное число33 - нечетное число56 - четное число15 - нечетное число56 - четное число47 - нечетное число