Тачки 2 одинаковые монеты например 10 руб. на одну сторону и 10 руб. на другую сторону что так чтобы в равновесии потом убери одну монетку и стать в другую если они тоже будут одинаковые стать другом летать по очереди не стоять в одну сторону по одной монетки потомстве То какая то будет тяжелее той монеты Ну или легче Что значит то Монеты которые тяжелее или легче То есть все же одинаковые монеты А есть одна Какая прекрасная может быть и тяжесть в сети монетки настоящий или ненастоящий монетки на которые будут отделяться отделяться весом такое фальшивка
//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20. //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, //когда были заморозки. Гарантируется, что хотя бы в один день были заморозки
var i,x,y : shortint; s : real; t : array [1..30] of shortint; begin randomize; For i:=1 to 30 do begin t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20) writeln (i,' ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив end; for i:=1 to 30 do begin if t[i]<0 then begin x:=x+t[i]; y:=y+1; end; end; s:=x/y; writeln ('Средняя температура по дням, когда были заморозки ',s:0:2); end.
procedure PrintArray(var a: array100); var i: integer; begin for i := 1 to n do write(a[i]:3, ' '); writeln; end;
begin randomize; for i := 1 to n do a[i] := random(99) - 50;
PrintArray(a);
repeat f := true; for i := 1 to n - 1 do if (a[i] < 0) and (a[i + 1] >= 0) then begin f := false; t := a[i]; a[i] := a[i + 1]; a[i + 1] := t; end; until f; PrintArray(a);