for I : byte := 1 to 10 do a[i] := random(1, 60000);
max := 0; for I : byte := 1 to 10 do if a[i] > max then max := a[i];
writeln(max*3);
end.
Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.
maglevanyycpt
09.10.2021
)напиши куда слово встовлять(вначало, вконец, посередине...); program z2; var s,s1:string; a:integer; begin write('Введите слово: ');read(s1); write('Введите строку: ');read(s); s:=s+' '; a:=length(s); writeln(a); insert(s1,s,a+1); writeln('Преобразованная строка: ',s); end. 2) program z1; var s:string; i,kol:integer; begin writeln('Введите строку'); read(s); kol:=0; for i:=1 to length(s) do if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and (s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and (s<>'8')and(s<>'9')and(s<>'0') then inc(kol); writeln(Kol); end.
использовать Чертежник
алг
нач
сместиться в точку (0,5)
опустить перо
сместиться в точку (-0.1,5.1)
сместиться в точку (-0.2,5)
сместиться в точку (-0.1,4.9)
сместиться в точку (0,5)
поднять перо
сместиться в точку (0,0)
опустить перо
сместиться в точку (0,3)
сместиться в точку (-2,4)
сместиться в точку (-3,5)
сместиться в точку (-3,8)
сместиться в точку (-2,8)
сместиться в точку (-2,5)
сместиться в точку (-1,5)
сместиться в точку (0,7)
сместиться в точку (1,7)
сместиться в точку (2,6)
сместиться в точку (2,4)
сместиться в точку (1,3)
сместиться в точку (2,4)
сместиться в точку (2,6)
сместиться в точку (5,6)
сместиться в точку (6,5)
сместиться в точку (6,3)
сместиться в точку (5,2)
сместиться в точку (5,0)
сместиться в точку (3,0)
сместиться в точку (3,2)
сместиться в точку (2,2)
сместиться в точку (2,0)
сместиться в точку (0,0)
поднять перо
кон
Объяснение:
Смотри картинку