КОБол................................................................
//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
if ar[i]>0 then s:=s+ar[i];
end;
writeln;
write('Result:',s);
end.
Пример работы программы:
Array:
3 -7 0 9 -9 6 -1 0 1 0 -7 9 -9 -5 -8
Result:28
Так сойдёт?
N = 15#кол-во карт
N_list = []#список карт
for e in range(N):#заполняем список карт
N_list += [e + 1]
import random
N_list[random.randint(0, N - 1)] = 0#теряется случайная карта
for e in range(N):
if N_list[e] != e + 1:
print "номер потерянной карты = " + str(e + 1)
А можно было переводить Мегабайты в килобайты, но я сделал по другому)