begin var n:=readInteger('Число элементов массива-'); var a:=ArrRandom(n,-50,50); a.Println; for var i:=1 to n-2 do a[i]:=2*(i+1); a.Println end.
Пример Число элементов массива- 10 -40 4 -49 0 -47 41 49 33 -31 -1 -40 4 6 8 10 12 14 16 18 -1
begin var n:=readInteger('Число элементов массива-'); var a:=ArrRandom(n,-50,50); a.Println; var i1:=a.IndexMax; var i2:=a.IndexMin; Writeln(a[min(i1,i2)+1:max(i1,i2)].Where(x->x<0).Sum) end.
Пример Число элементов массива- 18 -45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47 -194
begin var a:=ReadlnString('Введите строку;').ToCharArray; // было сделано так только ради получения массива символов, // который на самом деле только мешает Writeln(a); if Pos('...',a.JoinIntoString)>0 then Writeln('Троеточие в массиве есть') else Writeln('Троеточия в массиве нет') end.
Пример Введите строку; 6ye$% DFDRT..drrtert...DFDGD [6,y,e,$,%, ,D,F,D,R,T,.,.,d,r,r,t,e,r,t,.,.,.,D,F,D,G,D] Троеточие в массиве есть
Const n=5; m=6; var a:array[1..n,1..m] of integer; i,j,max,imax,jmax,s:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; max:=a[1,1]; imax:=1; jmax:=1; for i:=1 to n do for j:=1 to m do if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; writeln('max = a[',imax,',',jmax,'] = ',max); s:=0; for i:=1 to imax-1 do for j:=1 to m do s:=s+a[i,j]; for j:=1 to jmax-1 do s:=s+a[imax,j]; writeln('s = ',s); end.
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.