Program znanija;
const n = 5;
var
a:array[1..n] of integer;
premax, premaxi, maxi, max, i, b:integer;
begin
max := -1000;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if b > max then
begin
premax := max;
premaxi := maxi;
max := b;
maxi := i;
end;
end;
writeln('Максимальный элемент №1: ', max, ',его номер ', maxi);
writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi);
end.
Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function sn(n:integer):integer; // сумма цифр числа
begin
n:=Abs(n);
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
var m:=ArrRandom(n,a,b); m.Println;
var k:=ReadInteger('k=');
Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.
<u>Пример</u>
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2
Ответ:
Как мне говорили : "самое главное в Excel - это правая кнопка мыши, потому что, если вы не знаете как работать в Excel, то, просто кликая ей в разных ситуациях, можно научится работать также используется клавиатура для внесения данных
Объяснение: