сложно воспроизвести разряд молнии, невозможно достичь температуры абсолютного нуля
program westdog; uses crt; const n=10; var a: array [1..10] of integer; i,j,temp: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln();
randomize; writeln('элементы массива: '); {создание и вывод массива} for i: =1 to n do begin a[i]: =random(11)-5; write (a[i]: 5); end; {сортировка массива методом прямого обмена} for i: =1 to n-1 do for j: =i+1 to n do if a[i]> a[j] then begin temp: =a[i]; a[i]: =a[j]; a[j]: =temp; end; writeln(); writeln('результат: '); for i: =1 to n do write(a[i]: 5); end.
1)
var
a,b: array [1..10] of integer;
i: integer;
begin
for i: =1 to 10 do begin
repeat
write ('a[',i,'] = '); readln(a[i]);
if a[i]> 0 then writeln ('error! ');
until a[i]< 0;
end;
writeln ('first massiv: ');
for i: =1 to 10 do write (a[i]: 4);
writeln;
writeln ('second massiv: ');
i: =1;
repeat
b[i]: =random(38)+3;
if odd(b[i])=true then i: =i+1;
until i> 10;
for i: =1 to 10 do write (b[i]: 4);
writeln;
readln;
end.
2)
var
a,b: array [1..10] of integer;
i,k: integer;
begin
randomize;
for i: =1 to 10 do begin
a[i]: =random(15)-15;
write (a[i]: 4);
end;
writeln;
write ('number: '); readln(k);
for i: =1 to 10 do begin
b[i]: =a[i]*k;
write (b[i]: 4);
end;
writeln;
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
простейший - невозможно достичь температуры -273,15град цельсия
это так называемый абсолютный нуль, при котором останавливается атомарное движение.
удачи ! )