For(int i=2;i<10;i++)
{
if(a[i]<a[i-1] && a[i]<a[i+1])
{sum+=abs(a[i]);}
}
var
i,a,b: integer;
begin
writeln('Введите границы интервала: ');
readln(a,b);
for i:=a to b do
writeln(i,' ',sqr(i),' ',sqr(i)*i);
end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.
Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.
Var k, m : integer;
Dat: array[1..10] of integer;
Begin
for k:=1 to 10 do
Readln (Dat[k]);
m := 0;
for k := 1 to 10 do;
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.