Как узнать сколько деннег предварительно загружено в банковскую карту Maestro Prepaid. scratch it, в Банкомате или искать компьютер файл процессора карты с соответствующей информацией?
Program dlksjijh; var A: array[1..40] of integer; i: integer; begin randomize; writeln('исходные данные:'); for i := 1 to 40 do begin A[i] := Random(21); write(A[i], ' '); end; writeln; writeln('преобрезованный массив:'); for i := 1 to 40 do begin if A[i] mod 2 = 0 then A[i] := Round(A[i]/2) else A[i] := A[i] * 3; write(A[i], ' '); end; end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
Var a,p,n,i:integer; begin p := 0; n := 0; for i := 1 to 15 do begin read(a); if a mod 3 = 0 then if a > 0 then p := p + 1 else if a < 0 then n := n + 1 end; if p > n then writeln('Положительных') else if p < n then writeln('Отрицательных') else writeln('Одинаково') end.
{вариант "как-то посложнее"}
var a,i,s:integer; begin s := 0; for i := 1 to 15 do begin read(a); s := s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0)) end; if s > 0 then writeln('Положительных') else if s < 0 then writeln('Отрицательных') else writeln('Одинаково') end.
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
begin
p := 0;
n := 0;
for i := 1 to 15 do
begin
read(a);
if a mod 3 = 0 then
if a > 0 then p := p + 1
else
if a < 0 then n := n + 1
end;
if p > n then writeln('Положительных') else
if p < n then writeln('Отрицательных') else
writeln('Одинаково')
end.
{вариант "как-то посложнее"}
var a,i,s:integer;
begin
s := 0;
for i := 1 to 15 do
begin
read(a);
s := s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0))
end;
if s > 0 then writeln('Положительных') else
if s < 0 then writeln('Отрицательных') else
writeln('Одинаково')
end.