Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do
if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]);
end.
Пример:
12 34 23 1 12 3 1 42 30 36
Пары соседних элементов с суммой > 50:
34 23
42 30
30 36
На уроках по физкультуре основным занятием является развитие спортивных способностей вашего организма. Как правило, на занятиях ученикам дают практические задания. Не смотря на это, очень часто преподаватели требуют от своих подопечных рефераты по физкультуре. Особенно если вы освобождены от физических нагрузок. В этом разделе собраны основные рефераты по физкультуре, которые наиболее востребованы.
6.
350 Кбайт = 350*1024 байт = 350*1024*8 бит
Необходимая память для хранения одного пикселя =
350*1024*8 / (1280*320) = 7 бит
Количество цветов = 2^7 = 128
7.
Объем файла =
16*8*8000 бит = 16*8*8000 / 8 байт = 16*8000 / 1024 Кбайт = 125 Кбайт
8.
280 Гбайт = 280*1024 Мбайт
Количество CD = 280*1024 / 700 = 409,6 ≈ 410
Pascal:
var
a, b, c, d: integer;
begin
read(a); read(b); read(c); d:=0;
d:=c; c:=a; a:=d;
writeln(a, ' ',b, ' ',c);
end.
Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.