35 ! кто с школы интернет урокциклические алгоритмывыбери верный ответ.1. while условие do оператор - id994071220200413 от Sparc72 13.04.2020 21:16

Question

Информатика: 35 ! кто с школы интернет урокциклические алгоритмывыбери верный ответ.1. while условие do оператор 1цикл с неизвестной2цилиндрический цикл3цикл с предусловием4цикл с эпилогом2.сколько раз будет выполнен цикл forn: =1to57do ? 3.дано: fori: =1to9do при последнем выполнении тела цикла i=4.дан алгоритм для робота: алгнач нц 48 раз вправо; закрасить кцкон1если правее робота не встретится препятствий, то, выполнив выше алгоритм, он переместится на 48 клеток вправо и закрасит эти клетки.2если правее робота

Sparc72 · Accepted Answer

const

n = 15;

var

x: array[1..n] of integer;

i, k, t, min: integer;

begin

Randomize;

Writeln('Исходные элементы массива');

min := 1000;

for i := 1 to n do

begin

x[i] := Random(101) - 50;

Write(x[i]:4);

if min > x[i] then begin

min := x[i];

k := i

end

end;

t := x[k]; x[k] := x[1]; x[1] := t;

Writeln;

Writeln('Результирующие элементы массива');

for i := 1 to n do Write(x[i]:4);

Writeln

end.

Исходные элементы массива

-28 -22 -15 3 27 29 34 -29 -49 -37 -19 31 40 -36 4

Результирующие элементы массива

-49 -22 -15 3 27 29 34 -29 -28 -37 -19 31 40 -36 4

Объяснение:

MOGZ ответил