Program massivy;
var array1: array [1..14] of integer;
array2: array [1..10] of string;
array3: array [1..7] of string;
i, b:integer;
begin
for i:= 1 to 14 do
array1[i]:=random(-5, 5);
for i:= 1 to 10 do
array2[i]:='Слово';
for i:=1 to 7 do
readln(array3[i]);
end.
Код ищет максимум среди первых пяти элементов массива, соответственно выведет 10
Я знаю как я думала и сделай так: с востока дверь, с трёх сторон направлены окна, то есть, одно окно выходит на север, другое на юг, третье на запад.
Если я тебе помогла сделаешь лучшее решение?
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString.Replace(' ',''))
end.
<u>Пример</u>
А роза упала на лапу А з о ра
АрозаупаланалапуАзора