PascalABC.NET:

begin
var a:=ArrRandom(50,-500,500);
a.Println;
var k:=a.Where(x->(abs(x) mod 10 = 3)).Count;
var s:=a.Where(x->(abs(x) mod 10 = 3)).Sum;
if k=0 then writeln('В массиве нет элементов, оканчивающихся цифрой 3')
else Writeln('Среднее арифметическое элементов массива, оканчивающихся цифрой 3 = ',s/k);
end.

Пример (для 10 элементов):
450 -159 189 463 262 220 -125 -41 -178 -62
Среднее арифметическое элементов массива, оканчивающихся цифрой 3 = 463

0 0

3 года назад

Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.

Tonik2019

Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. Тогда можно попробовать так:

var a,max,maxn,n: integer;
begin
readln(a);
max:=a; maxn:=1;n:=1;
while a<>0 do begin
    readln(a);
    n:=n+1;
    if a>max then begin
      max:=a; maxn:=n;
    end;
end;
writeln('Максимальный : ',max,' номер : ',maxn);
end.

0 0

4 года назад

Программа, которая после введенного с клавиатуры числа ( в диапазоне от 1 до 999 ), обозначающее денежную единицу, дописывает сл

варама

программа для pascal:

program rybl;

var i : integer;

begin

read(i);

writeln(i,'rybl');

end.

0 0

4 года назад