Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
Объем видеопамяти будет равен 800*640*24 = 12288000 бит
12288000/8 = 1536000 байт
1536000/1024 = 1500 кбайт
1500/1024 = 1,47 Мб
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ArrRandom(15,-50,50); x.Println;
var (sn,sp):=(0,0);
foreach var m in x do
if m>0 then sp+=m else sn+=m;
Writeln('Разница между суммой положительных и отрицательных ',sp-sn)
end.
<u>Пример</u>
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373
Во вложении видно, что х - именно массив (array of integer)
Я не знаю ответа,но мне всегда помогает прочитать параграф пару раз и понять,и сама делаю