Program mass;
uses
crt;
var
a: array [1..10] of integer;
i: integer;
begin
randomize;
writeln('Исходдный массив: ');
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(' ', a[i], ' ');
end;
Writeln;
writeln('После замены отрицательных чисел на 0:');
for i := 1 to 10 do
begin
if a[i] < 0 then a[i] := 0;
write(' ', a[i], ' ');
end;
writeln;
end.
ща переделаю не увидел что ті изменила задание
Сначала наполняем трели первый бидон, переливаем масло из него в пятилитровый. Там теперь 3 л. Еще раз наполняем трехлитровый бидон и заполняем до конца пятилитровый. Теперь в трехлитровом бидоне 1 л и в пятилитровом 5. Возвращаем масло из пятилитрового бидона в восьмилитровый, а из трехлитрового выливаем в пятилитровый 1 л масла. Снова наполняем трехлитровый и выливаем в пятилитровый. Теперь в пятилитровом бидоне 4 л масла и в восьмилитровом так же.
Uses crt;
var a,b,s:integer;
begin
readln(a);
readln(b);
s:=a*b;
writeln(s);
end.
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
2.5 Кбайт= 2.5*1024=2560 бит ( вес текста)
2560:16=160 символов
