Var a:array[1..101] of integer;
b:array[1..101] of integer;
i,q,s,l,m:integer;
n:real;
begin
i:=1;
q:=1;
l:=1;
while q<>0 do
begin
write ('Введите ',i,' число: ');
read (a[i]);
q:=a[i];
i:=i+1;
s:=i-2;
end;
for i:=1 to s do
begin
if a[i] mod 8 = 0 then
begin
b[l]:=a[i];
m:=l;
l:=l+1;
end;
end;
for l:=1 to m do
begin
n:=n+b[l];
end;
n:=n/m;
if l=1 then write ('NO') else write ('Среднее африметическое = ',n:0:1);
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var a1:=a[0,0];
Writeln('S=',a.ElementsByRow.Skip(1).Where(x->x>a1).Sum)
end.
<u>Пример</u>
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив [4,5] ***
35 24 93 -58 -89
-51 -55 -83 49 -92
-90 89 68 28 -60
46 -57 53 -78 -42
--------------------
S=398
Петя сказал нет мне кажется 1
var
n, i: integer;
s: real;
begin
readln(n);
for i := 1 to n do
s := s + exp(i*ln(i));
writeln(s);
end
Program PR;varI:byte;Mas:array[1..10] of integer;beginfor I:=1 to 10 do begin write('Введите 10 чисел:'); readln(Mas[I]);end;writeln('Список четных элементов массива:');for I:=1 to 10 do if Mas[I] mod 2=0 then writeln(Mas[I]);readln;end.
____________________________________________________________
Ткни на кнопку "СПАСИБО" и оцени ответ, если я помог тебе. Удачи!