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.
Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
PascalABC.Net
1)
var
i,s,p : integer;
begin
s := 0;
p := 1;
for i := 3 to 18 do
if (i-2) mod 3 = 0 then
begin
s := s + i;
p := p * i;
end;
writeln ('s=',s);
writeln ('p=',p);<span>
end.
2)
Программа не зачисляет процент в первый год, если нужно, чтобы зачислила, то поменяй местами строки вывода и присвоения внутри цикла
var
i : integer;
s : real;
begin
s := 10000;
for i := 2010 to 2015 do
begin
writeln (i,'-',s);
s := s * 1.1;
end;<span>
end.</span></span>