Доработайте , не могу написать, чтобы выводил наибольшее число, которое кратно 3 из линейного массива) program b11; var i, p: integer; b: array [1..10] of integer; begin randomize; p: =0; for i: =1 to 10 do begin b[i]: = random(10) ; write(b[i], ' '); end; for i: =1 to 10 do if b[i] mod 3 = 0 then p: =p+b[i]; writeln (' '); writeln('сумма чисел кратных 3 = ', p); readln; end.

program b11;
var  i, p, max: integer;  
B: array [1..10] of integer;
begin 
randomize;  
p := 0;  
for i := 1 to 10 do  
begin   
B[i] := random(10);    
write(B[i], ' ');  
end;  
for i := 1 to 10 do    
if B[i] mod 3 = 0 then begin     
p := p + B[i];      
if b[i] > max then max := b[i]   
end; 
writeln; 
writeln('Сумма чисел кратных 3 = ', p);  
writeln('Максимальное число, кратное 3 = ', max); 
readln;
end.

Задача про площадь и периметр прямоугольника:

a = int(input('Введите длину => '))

b = int(input('Введите ширину => '))

print('S =', a * b)

print('P =', 2 * (a + b))

Задача 1:

a = int(input('Введите число байтов => '))

print(a * 1024, 'килобайт')

Задача 2:

a = int(input('Введите диаметр окружности => '))

print('L =', 3.14 * a)

Задача 3 (что то не так с тестами в твоём задании или с условием):

a = int(input('Введите первое число => '))

b = int(input('Введите второе число => '))

c = int(input('Введите третье число => '))

print('Среднее арифметическое =>', (a + b + c) / 3)

Задача 4:

a = int(input('Введите радиус окружности => '))

print('L =', 6.28 * a)

print('S =', 3.14 * a ** 2)

1) комплекс программ, обеспечивающий управление, аппаратными средствами компьютера.2) Определённый алгоритм задач , точное следование которым позволит организации получить продвижение устойчивой положительной репутации в целевой аудитории. 3)система новых программ на языке программирования. 4)программа для обнаружения вирусов.5)программа для сжатия без потерь одного или более файлов в файл-архив.6)устройство для набора, сохранения, редактирования и печатания текста.7) категория программного обеспечения , предназначенная для работы с электронными таблицами.8)программа , служащая для организации игрового процесса, связи с партнерами по игре, или сама выступающая в качестве партнера.