Const N = 4; {количество девятидневок в 31 числе} var a: array [1..31] of integer;{заранеее заполненный} i, max, d : integer; begin max:=0; for i:= 1 to 31 do if a[i] > max then {нахождение максимального числа и запонимание его девятидневки} begin max := a[i]; d:= i mod N; end; writeln(d){вывод девятидневки} end.
1) const n=100; var a:array[1..n] of integer; i,k:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(471)-400; write(a[i]:5); end; writeln; write('k = '); readln(k); for i:=1 to n do if a[i]>k then a[i]:=k; writeln('Измененный массив:'); for i:=1 to n do write(a[i]:5); writeln; end.
Пример (для n=10): Массив A: -294 -223 -187 51 -79 -288 -367 38 21 -25 k = Измененный массив: -294 -223 -187 5 -79 -288 -367 5 5 -25
2) const n=50; var a:array[1..n] of integer; i,k:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(111)-100; write(a[i]:5); end; writeln; k:=0; for i:=1 to n do if a[i]>0 then k:=k+1; writeln('k = ',k); end.
Пример (для n=10): Массив A: -92 -93 -84 -77 -9 -3 8 -68 -25 -89 k = 1
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var t:=ReadlnString(':').MatchValue('\(.*\)'); Writeln(t[2:t.Length]) end.
Пример : Напечатаем только то (что в скобках) и не более! что в скобках
Пояснения. 1) Принимаем с клавиатуры текстовую строку, выделяем в ней пару круглых скобок вместе с содержимым и помещаем полученную подстроку в t. В соответствии с условием считаем без проверки, что такая пара скобок есть всегда. 2) Выделяем из содержимого t символы со второго по предпоследний (т.е. скобки не включаем) и выводим результат на экран.
var a: array [1..31] of integer;{заранеее заполненный}
i, max, d : integer;
begin
max:=0;
for i:= 1 to 31 do
if a[i] > max then {нахождение максимального числа и запонимание его девятидневки}
begin
max := a[i];
d:= i mod N;
end;
writeln(d){вывод девятидневки}
end.