program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]); writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.
Ответ дал: Гость
var
d1,d2,d3,d4: string;
begin
randomize;
readln(d1);
readln(d2);
readln(d3);
readln(d4);
case random(4) of
0: writeln(d1,d2,d3);
1: writeln(d1,d2,d4);
2: writeln(d2,d3,d4);
3: writeln(d1,d3,d4);
end;
end.
Ответ дал: Гость
самым главным считается объем
Ответ дал: Гость
двое детей поплывут вместе. один останется, другой поплывет обратно. останется поплывет мать. обратно поплывет ребенок. дети поплывут обратно. один останется другой поплывет за отцом. ребенок останется поплывет отец. затем опять пеплывет ребенок за братом и вместе они вернутся.
Популярные вопросы