const m = 100;
<span>var i,n,s,mx: integer;
</span><span> a: array[1..m] of integer;
</span><span>begin
</span><span> write('размер массива: '); readln(n);
</span><span> randomize;
</span><span> s:=0; mx:= -12;
</span><span> writeln('исходный массив: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(-11,34);
</span><span> write(a[i],' ');
</span><span> if (a[i]<0) and (a[i]>mx) then mx:=a[i];
</span><span> if ((a[i]>0) and (a[i] mod 2 = 1)) then s:=s+a[i];
</span><span> end;
</span><span> writeln;
</span><span> writeln('максимальный среди отрицательных: ',mx);
</span><span> writeln('сумма нечетных положительных: ',s);
</span><span>end.
</span>размер массива: 15
<span>исходный массив:
</span><span>17 -10 17 0 5 2 26 9 27 8 21 19 18 5 21
</span><span>максимальный среди отрицательных: -10
</span><span>сумма нечетных положительных: 141
</span><span>
</span>
Известны два расстояния: одно в километрах, другое—в футах(1 фут=0,45 м). Какое из расстояний меньше?
Program ss;
uses crt;
var
a,b,c,s,s1: integer;
Begin
clrscr;
Writeln('Введите расстояние в километрах:');
readln(a);
Writeln('Введите расстояние в футах');
readln(b);
writeln('Введите размер одного фута в метрах');
s:=a*1000;
s1:=c*b;
? - любой одиночный символ
* - последовательность любых символов
для маски ?ba*r.?xt подходят имена файлов:
1ba222r.txt, vbaxyzr.txt, nbaprsprsr.txt и так далее
28800 бит/с = 3600 байт = 3,515625 Кб
Ответ: <span>а)3600 байт</span>