Винни-пух собрал 10 л. меда в большую кастрюлю. 4 л. он решил подарить на день рождения иа. как отмерить 4 л. в кувшин, если у него только 2 кувшина 5 л. и 3 л
С ведра10л вылить в банку3л из банки вылить в банку 5л. потом из ведра еще вылить в банку 3л. и в ведре останется 4л. вот 4л он подарит ИА вместе сведром
var a: array[1..100] of real; i, n: integer; sum_pos, sum_neg: real; k_pos, k_neg: integer;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100) - 50; write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет} sum_pos := 0; k_pos := 0; sum_neg := 0; k_neg := 0; for i := 1 to n do begin if a[i] > 0 then begin sum_pos := sum_pos + a[i]; k_pos := k_pos + 1; end;
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
потом из ведра еще вылить в банку 3л.
и в ведре останется 4л. вот 4л он подарит ИА вместе сведром