Const
N = 33;
Var
A:array[1..N] of real;
i,k:integer;
Begin
Randomize;
k:=0;
For i:= 1 to N do
Begin
if random(2) = 1 then A[i]:=random*N
else A[i]:=0;
Write(A[i]:0:3,' ');
if A[i] = 0 then k:=k+1
End;
WriteLn;
WriteLn('Количество нулей в массиве: ',k);
ReadLn
End.
Средний возраст (x+y)/2
возраст тани отличается |(x+y)/2-x|
возраст мити отличается|(x+y)/2-y|
главное про модул не забудь, а то может быть возраст с минусом)
Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
Var a,b,c:integer;
Begin
Readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then
Write('yes') Else
write('no').