A(I) - массив
L - лучший рез-т
H - худший рез-т
S - средний рез-т
О - общая сумма рез-тов
CLS
DIM A(8)
FOR I=1 TO 8 STEP 1
INPUT A(I);
NEXT (I)
L = A(1)
H = A(1)
О=0
FOR I=1 TO 8 STEP 1
IF L<A(I) THEN L=A(I)
IF H>A(I) THEN H=A(I)
О=O+A(I)
NEXT (I)
S=O/8
останется только вывод полученных результатов
Это к первому вопросу:
Program n1;
Uses Crt;
Var
a: array[1..10] of integer;
i,k,max,m:integer;
Begin
for i:=1 to 10 do begin
a[i]:=random(11)+10;
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=2 to 10 do
if (max<a[i]) then max:=a[i];
k:=0;
for i:=1 to 10 do
if (max=a[i]) then k:=k+1;
writeln('Kol-vo elementov ravnih max lementu massiva: ',k);
<span>End.
Второй вопрос просто-напросто не понял.</span>
Думаю так
<span>var i, n: integer; s: real;
begin write('S N? '); readln(s, n); for i:=1 to n do s:=s*1.02; writeln(s:0:2); readln end.</span>
А проще без цикла:
<span>var n: integer; s: real;
begin write('S N? '); readln(s, n); writeln(s*exp(n*ln(1.02)):0:2); readln end.</span>
А на русском языке программы не составляют. Pascal, C, C++
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords;
var i:=a.Select(t->t.Length).ToArray.IndexMin;
Writeln('Самое короткое слово "',a[i],'" длиной ',a[i].Length)
end.
<u>Пример</u>
Зеленые бесцветные идеи яростно спят
Самое короткое слово "идеи" длиной 4