Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.
Пример:
<span>Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16</span>
1-Кодирование
2-передача это там где перец
3-обработка там где краб
4-хранение там где рюкзак
А дальше не знаю
Код на Python
growth = []
growths = ' '
applicants = []
while 1 == 1:
growths = input()
if growths == '!':
break
else:
growth.append(int(growths))
for i in range(len(growth)):
if growth[i] > 150 and growth[i] < 190:
applicants.append(growth[i])
print(len(applicants))
print(min(applicants), max(applicants))
1. Подошёл к переходу
2. Если красный свет то стоишь и ждёшь зелёного
3. При зелёном свете смотришь по сторонам, если нет машин, то идёшь.
4. Доходя до середины ещё раз осмотрись
5. Если всё чисто, продолжай путь