a[i]:=random(46)-10 {функция рандом будет вызывать значения от 0 до 45, и еще -10 получится от -10 до 35}
end;
For i:=1 to 12 do begin
if a[i]>0 then write(a[i],' ');
if a[i]<0 then s:=s+1;
end;
writeln(s);
end.
Стоит учесть что он не будет учитывать 0. Например, он может выдать вам 5 положительных(напишет) и количество отрицательных - 2, И это означает что остальные 5 в массиве нули.
5A316 = 3·160+10·161+5·162
= 3·1+10·16+5·256 = 3+160+1280 = 144310
0hex = 0dec = 0oct 0 0 0 0 1hex = 1dec = 1oct 0 0 0 1 2hex = 2dec = 2oct 0 0 1 0 3hex = 3dec = 3oct 0 0 1 1 4hex = 4dec = 4oct 0 1 0 0 5hex = 5dec = 5oct 0 1 0 1 6hex = 6dec = 6oct 0 1 1 0 7hex = 7dec = 7oct 0 1 1 1 8hex = 8dec = 10oct 1 0 0 0 9hex = 9dec = 11oct 1 0 0 1 Ahex = 10dec = 12oct 1 0 1 0 Bhex = 11dec = 13oct 1 0 1 1 Chex = 12dec = 14oct 1 1 0 0 Dhex = 13dec = 15oct 1 1 0 1 Ehex = 14dec = 16oct 1 1 1 0 Fhex = 15dec = 17oct 1 1 1 1Задача #1
var a:array[1..12] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 12 do
read(a[i]);
for i:=1 to 12 do
if a[i] mod 2 = 0 then write(a[i],' ');
for i:=1 to 5 do
s:=s+a[i];
writeln(s);
end.
Задача #2.
var a:array[1..12] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 12 do begin
randomize;
a[i]:=random(46)-10 {функция рандом будет вызывать значения от 0 до 45, и еще -10 получится от -10 до 35}
end;
For i:=1 to 12 do begin
if a[i]>0 then write(a[i],' ');
if a[i]<0 then s:=s+1;
end;
writeln(s);
end.
Стоит учесть что он не будет учитывать 0. Например, он может выдать вам 5 положительных(напишет) и количество отрицательных - 2, И это означает что остальные 5 в массиве нули.
Задача #3
var a:integer;
begin
read(a);
write(a*30);
end.