Дана строка. Среди символов строки встречаются цифры. Написать программу, вычисляющую сумму всех цифр строки.

первых двух чисел четна, то выведите эту сумму. Если сумма третьего и четвертого чисел четна и отрицательна, то выведите все четыре числа без изменения. Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих четырех чисел. Иначе, выведите суммы двух первых и двух последних чисел.

выполнят задание втроём

program lab;
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
x:integer;
n,m,i,j,p,q,k:byte;
begin
writeln('Поиск неповторяющихся элементов двухмерного массива целых чисел');writeln;
randomize;
repeat
write('Введите количество строк...');
read(m);
until m in [1..nmax];
repeat
write('Введите количество столбцов...');
read(n);
write('Введите элементы двухмерного массива:');writeln;
until n in [1..nmax];
for i:=1 to m do
begin
for j:=1 to n do
begin
write(' [',i,',',j,']...');
readln(a[i,j]);

end;

end;
writeln('Исходная матрица:');

for i:=1 to m do
begin
for j:=1 to n do
begin

write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Неповторяющиеся элементы массива:');writeln;
for i:=1 to m do
for j:=1 to n do
begin
x:=a[i,j];
k:=0;
for p:=1 to m do
for q:=1 to n do
if a[p,q]=x then k:=k+1;
if k=1 then write(x,' ');
end;
end.

Дано натуральное число n. Написать программу вычисляющую сумму

2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0

2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99

среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива