Static void CountArray(int[] a)
{
var s = 0;
var k1 = 0;
var k2 = 0;
foreach(var t in a)
{
if (t > 0)
{
s += t;
k1 += (t % 2 == 1) ? 1 : 0;
k2 += (t > 10) ? 1 : 0;
}
}
Console.WriteLine($"{s} {k1} {k2}");
}
#include <iostream>
int main() {
short int n, n1, i, j;
long long int s, k, c;
std::cin >> n;
s = 0;
for (i = 1; i <= n; i++) {
std::cin >> n1;
c = 1;
k = 0;
for (i = 2; i <= n1; i++) {
k += c;
c++;
}
s += k;
}
std::cout << s << std::endl;
std::cin.get();
return 0;
}
Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.
Это программа для суммы двух чисел:
program summa;
var a,b,c: real;
begin
read (a,b);
c:=a+b;
write (c);
end.
это программа для разности двух чисел:
program raznost;
var a,b,c: real;
begin
read (a,b);
c:=a-b;
write (c);
end.
Program abc;
Const
n=3;
m=3;
Var a:array[1..n,1..m] of integer;
b,y,i,j,sum:integer;
srd:real;
Begin
Writeln('Введите числа массива: ');
For i:=1 to n do
For j:=1 to m do
Begin
Write('a[',i,',',j,']= ');
Readln(a[i,j]);
if a[i,j]>0 then
begin
sum:=sum+a[i,j];
inc(b);
end
else
If a[i,j]<0 then
Inc(y);
End;
If sum>0 then
begin
srd:=sum/b;
Writeln('Среднее =',srd);
end
else
Writeln('Нет положительных членов массива');
If y>0 then
begin
Writeln('Количество отрицательных элементов =',y);
end
else
Writeln('Нет отрицательных членов массива');
End.