ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

2tw1ns: Первый вариант, Вторая и Третья Задачи (потратил около трёх минут, там и по коду это видно).

Цитата:

const
x = 0.5;
var
y, min, max : real;
begin
min:=-5;
max:=5;

while min<>max do
begin
y:=sin(min)+2*cos(min);
writeln(y:2:2);
min:=min+x;
end;

readln
end.

Цитата:

const
max = 100;
var
mas : array [1..max] of integer;
x, y : integer;
begin
randomize;

for x:=1 to max do mas[x]:=random(100);

for x:=2 to max do if mas[1]<mas(x) then inc(y);

writeln(y);
end.

Слишком легкие задачи, чтобы помогать. Если ты и эти решить не можешь..... то ..... хз) Плохо дело, короче.