Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
желтый знак - нехватка памяти
все остальное - размер
var a: array [1..10] of integer;
i,k: integer;
begin
read(a);
k: =1;
for i : = 1 to 10 do
if a[k]> a[i] then k: =i;
end;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
end.
var a: array [1..16] of integer;
i,s,c,d: integer;
randomize;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
writeln(s);
- лондонгермания - берлиниспания - мадридиталия - римпольша - варшаваукраина - киевфранция - париж
да както сама удивилась как мало я знаю(
Популярные вопросы