//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c>100 then writeln('Сумма больше 100=',a+b+c) else writeln('Сумма=',a+b+c);
end.
Пример ввода:
200
50
8
Пример вывода:
Сумма больше 100=258
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
#include <iostream>
int main()
{
int *arr, N;
int posSum = 0, numOfEl = 0;
std::cin >> N;
arr = new int[N];
for (int i = 0; i < N; i++)
{
std::sin >> arr[i];
if (arr[i] > 0)
sum += arr[i];
if (arr[i] % 2 != 0 && i % 2 == 0)
numOfEl++;
}
// Сортировка "Пузырьком"
for (int i = 0; i < N; i++)
for (int j = 0; j < N - i - 1; j++)
if (arr[j + 1] < arr[j])
{
int tmp = arr[j + 1];
arr[j + 1] = arr[j];
arr[j] = tmp;
}
return 0;
}
var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
Program Program1;
Var
a:array [1..15] of integer;
i,min,Nmin,sum:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 15 do
begin
a[i]:=random(20)-10;
writeln('a[',i,']=',a[i]);
end;
sum:=0;
Nmin:=1;
min:=a[Nmin];
for i:=1 to 15 do
begin
sum:=sum+a[i];
if min>a[i] then
begin
min:=a[i];
Nmin:=i;
end;
end;
writeln;
writeln('Минимальный элемент в массиве: ',min,' его индекс: ',Nmin,' Сумма элементов массива: ',sum);
end.