<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(18, 2, 9);
a.Println;
WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)
end.
<h2>5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4</h2><h2>S = 110</h2>
Можно, например, так:
В ячейку B1 ввести формулу =3,14/6
В ячейку A2 - значение 3,14
Все остальные значения получать с помощью формулы вида:
=A2+$B$1
(См. прилагаемый файл)
#include <iostream>
int main(){
int height, above140 = 0, middle = 0;
const int num = 20;
for (int i = 0; i < num; i ++){
std::cout << "height is ";
std::cin >> height;
middle += height;
if (height > 140) above140 ++;
}
middle /= num;
std::cout << "middle height is " << middle << "\nabove 1m 40sm is " <<
above140 << "\n";
}
Var i:integer;
a: array[1..10] of integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
a[i]:=random(10)+1;
writeln('a[',i,'] = 'a[i]);
end;
writeln;
writeln('Индексы с нечетными значениями:');
for i:=1 to 10 do
if (a[i] mod 2 = 0) then write(i,' ');
end.