Program mas; var a: array[1..100] of integer; i, n: integer; begin randomize; writeln('введите размерность массива',n); readln(n); for i: =1 to n do a[i]: =random(45)-1; readln; for i: =1 to n do begin if a[i]> 15 then write(' ',a[i]); end; readln; end.
Спасибо
Ответ дал: Гость
var a,b,i,s: integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s: =0;
if a< b then
for i: =a to b do
begin
if i mod 2 = 0 then
s: =s+1;
end;
if a> b then
for i: =b to a do
begin
if i mod 2 = 0 then
s: =s+1;
end;
writeln(s)
end.
Ответ дал: Гость
если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. третий уходящий может надеть свою обувь. поэтому правильным ответом будет (б) 2 человека.
Популярные вопросы