Решите : заполните массив размерностью 7 элементов степенью числа 3

108

161

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

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

Katuchka001

Информатика

4,8(3 оценок)

ответ:

1. близкий - близлежащий

kozlovavika200

Информатика

4,6(25 оценок)

Вот код просто заполняющий массив var a, c, d, f: integer; var b: array [1..7] of integer; begin f: =3; c: =1; a: =3; while (c< 8) do begin d: =c; while d < > 0 do begin a: =a*f; d: =d-1; end; b[c] : = a; c: =c+1; end; end.

аня2838

Информатика

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

Var mas: array[1..10] of byte; i: byte; begin randomize; writeln('массив до обработки: '); for i: =1 to 10 do begin mas[i]: =random(10)+1; write(mas[i], ' '); end; writeln; writeln('массив после обработки: '); for i: =1 to 10 do begin if mas[i] mod 2< > 0 then mas[i]: =mas[i]*3 else mas[i]: =0; write(mas[i], ' '); end; end.