Var a: array [1..10] of integer;
i, min: integer;
Begin
For i:=1 to 10 do
a[i]:=Random(21)-10;
writeln('Исходный массив:');
For i:=1 to 10 do
write(a[i],' ');
writeln;
min:=a[1];
For i:=2 to 10 do
if a[i]<min then
min:=a[i];
writeln('Минимальный элемент = ', min);
For i:=1 to 10 do
if a[i]<0 then
a[i]:=a[i]*min;
writeln('Преобразованный массив: ');
For i:=1 to 10 do
write (a[i], ' ');
writeln;
End.
Выполнение программы на рисунке.
НЕ (X < 2), следовательно, X >= 2
НЕ (X > 10), следовательно, X < 10
И оба эти условия должны выполняться одновременно.
X >= 2 и X < 10, наименьшее число: 2
Ответ: 2.
1) Правая кнопка мыши на рабочем столе - Создать - Документ Microsoft Office Word
2) Пуск - Все программы - Microsoft Office - Microsoft Office Word
Var k:integer;
function sr(n:integer):real;
var i,s:integer;
begin
s:=0;
for i:=1 to n do s:=s+i*i;
sr:=s/n;
end;
begin
write('k='); readln(k);
writeln('Среднее арифметическое = ', sr(k));
end.
Пример:
k=5
Среднее арифметическое = 11
Program primer;
var a,b:integher;
begin
writeln('vvedite a,b:=');
readln(a,b);
if (a<0) and (b<0) then writelln('yes') else writeln('no');
readln;
end