Program minus;
Var
A: array(1..100) of longint;
I:integer;
Begin
For i:=1 to length(A) do begin
If A[i] < 0 then writeln(A[i]);
End;
End.
Var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum<1100 do<span> begin
</span>sum:=sum+(sum*0.05);
mes:=mes+1;
<span> end;
</span>writeln (mes:2:0);
readln;
end.
<span>Программа работает корректно. Выводит 2</span>
<!DOCTYPE>
<html>
<head>
<meta charset=UTF-8>
<title>Таблица</title>
</head>
<body>
<table>
<tr><td></td></tr>
</table>
</body>
</html>
tr - это строка таблицы.
td - это ячейки.
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }
var L:array [1..9] of byte;
n,i:byte;
begin
N:=9;
{считываем с клавиатруры N чисел}
writeln('введите масссив');
for i:=1 to n do read(L[i]);
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
var K:array [1..22] of byte;
n,i:byte;
begin
N:=22;
randomize;
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.