===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(15, 0, 500);
a.Println;
Println('Сумма элементов равна', a.Sum);
// 2
var b := ArrRandom(20, 0, 200);
b.Println;
var i := b.IndexMin;
Println('Наименьший элемент номер', i + 1,
'имеет значение', b[i]);
// 3
var c := ArrRandom(10, 0, 100);
c.Println;
Println('Количество элементов кратных трем равно',
c.Count(p -> p mod 3 = 0))
end.
72(9-&+;%6::+)9&977-764%+
С++
все функции не защищенные, никаких проверок нету
"на коленке" протестировал, и на первый взгляд все работает как нужно<span />
Var i,n:integer;
s,k:real;
begin
writeln('Введите количество дней: ');
readln(n);
k:=10;
i:=1;
s:=0;
while i<=n do
begin
s:=s+k;
k:=k*1.1;
i:=i+1;
end;
writeln('Спортсмен пробежал: ',s:5:2);
readln;
end.
var i:integer;
s,k,a,b,sum,p:real;
begin
writeln('Стипендия студента: ');
readln(a);
writeln('Расходы студента: ');
readln(b);
k:=b;
i:=1;
s:=0;
while i<=10 do
begin
s:=s+k;
k:=k*1.03;
i:=i+1;
end;
sum:=10*a;
p:=s-sum;
writeln('Нужно попросить у родителей: ',p:5:2);
readln;
end.