<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,100); a.Println;
var im:=a.IndexMin;
Writeln('Номер минимального элемента- ',im+1,', значение ',a[im]);
a:=(a[:im]+a[im+1:]).ToArray; a.Println
end.
<u>Пример</u>
-14 -21 2 -29 45 -48 81 22 0 5
Номер минимального элемента- 6, значение -48
-14 -21 2 -29 45 81 22 0 5
1/4 книги поместится в флэшку емкостью 256 мбайт
program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
i,n,k,p:byte;
begin clrscr; Randomize;
writeln('n:');readln(n);
writeln('a:');readln(p);
for i:=1 to n do
begin
write('элемент ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
k:=0;
for i:=1 to n do
begin
if a[i] > p then inc(k);
end;
writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.
A=9, b=8, c=2
if (9>8) and (8>2) ⇒ if True and True ⇒ if True и выполняется оператор после then:
x=2*9+8+2=18+8+2=28
Ответ: х=28