<span>2 Звук будет внедрен в презентацию.</span>
max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];
Двоичная - 0001 1111
восьмеричная - 37
Если бы я был организатором производства печенья, то сначала потратил бы дни на приобретение 8 духовок, на это ушло бы 8 * 6 = 48 дней. Потом с помощью 8 духовок и 1 пары рук за 60 дней сделал бы 540 пачек печенья. Итого, 108 дней и 540 пачек, из которых 8 сверхплановых можно кому-нибудь подарить.
Кто быстрее, ребята?
uses crt;
var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;
end.