Const
n=100;
type
V=array[1..n] of integer;
procedure IsGreater(var p:V; m,T:integer; var r:boolean);
var
i:integer;
begin
i:=1; r:=True;
while (i<=n) and r do
begin r:=(p[i]>T); Inc(i) end
end;
procedure Init(var p:V; m:integer);
{ инициализация и вывод массива }
var
i:integer;
begin
for i := 1 to m do
begin p[i]:=Random(51)-25; Write(p[i]:4) end;
Writeln
end;
procedure Invert(var p:V; m:integer);
{ инвертирование элементов и вывод массива }
var
i:integer;
begin
Writeln('Текущие значения элементов массива');
for i := 1 to m do
begin p[i]:=-p[i]; Write(p[i]:4) end;
Writeln
end;
var
a,b:V;
i,m1,m2,t:integer;
res:boolean;
begin
Randomize;
Write('Введите размеры массивов a и b: '); Read(m1,m2);
Writeln('Введите пороговое значение T: '); Read(t);
Writeln('Элементы массива A');
Init(a,m1);
IsGreater(a,m1,t,res);
if res then Invert(a,m1)
else Writeln('Условие не выполнено');
Writeln('Элементы массива B');
Init(b,m2);
IsGreater(b,m2,t,res);
if res then Invert(b,m2)
else Writeln('Условие не выполнено')
end.
<em><u>Тестовое решение:</u></em>
Введите размеры массивов a и b: 15 9
Введите пороговое значение T:
-24
Элементы массива A
23 -9 -23 -25 -25 -4 -16 -2 -3 6 -8 -19 19 21 12
Условие не выполнено
Элементы массива B
-6 -9 -3 -23 14 4 -11 24 11
Текущие значения элементов массива
6 9 3 23 -14 -4 11 -24 -11
Если имеется в виду "грузовой состав ( тепловоз и 7 цистерн)", то так: 1) 1тепловоз отцепляет свои 2 вагона2) 1тепловоз заезжает с 1 вагоном в тупик3) оставшиеся вагоны 2тепловоз толкает вперед, давая 1тепловозу выехать позади него4) 2тепловоз сдает назад, завозит 2 вагона в тупик и едет вперед<span>5) 1тепловоз возвращается и забирает 2 вагона</span>
Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Гвоздей осталось ',(n*0.6*0.25):0:0,' шт.');
End.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p := ReadArrInteger('Вводите:', 20);
var a := ReadInteger('a =');
p.IndexesOf(t -> t > a).Println; // индексы от нуля!
p.IndexesOf(t -> t > a).Select(t -> t + 1).Println; // номера от 1
end.
<h2>Пример</h2>
Вводите: -16 30 -24 30 -14 -11 -16 -2 -14 7 -23 9 9 11 -10 -5 25 30 -22 -6
a = 5
1 3 9 11 12 13 16 17
2 4 10 12 13 14 17 18
<h3>Выберите, что Вам нужно и удалите лишний вывод</h3>
Ответ:
60
Объяснение:
1)l=vt(где i-размер,v-скорость,t-время)
пропорция:
(160*1024*8) x
------------------ = ---------- ==>(мы все переводим в бит,x-то,что находим)
2048 768
**************************************************************************************************
(160*8) x
---------- = ------------ (1024 сократили с 2048,поэтому внизу 2)
2 768
**************************************************************************************************
160*4 x
--------- = ------------ (2 сократили с 8)
1 768
***********************************************************************************************
2)x=160*4*768 бит
3)160*4*768 160*1*768 80*1*768
---------------- = ---------------- = ------------------ =60 кбайт
8*1024 2*1024 1024
(цифра 8-перевод из бит в байты,1024 из байтов в килобайты)
*************************************************************************************************