Несколько очень легких задачек!проверьте себя!!на разные темы,от нах-я суммы до массивов!!прошу решить,кн

[ruslan55]

8.Ввести с клавиатуры трёхзначное целое число. Определить сумму цифр введенного числа

9.Ввести одномерный массив из 10 целых чисел. Найти сумму его элементов

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

11.Упростите выражение ---|(( ---|x)^y)

12.Дано трехзначное число. Написать программу определения: входит ли в него цифра цифры 4 и 7

13.Символом F обозначено одно из указанных ниже логических выражений от трех аргументов: X, Y, Z.
Дан фрагмент таблицы истинности выражения F:

X Y Z F
0 0 0 1
0 0 1 0
0 1 0 1
Какое выражение соответствует F?

[Greblin]

8.

var a: integer;
    sum: integer;

begin
readln(a);
sum := a mod 10;
a := a div 10;
sum := sum + a mod 10;
a := a div 10;
sum := sum + a;
writeln(sum);
end.

9.

var a: array[1..10] of integer;
    sum: integer;
    i: integer;

begin
sum := 0;
for i := 1 to 10 do
  begin
  read(a[i]);
  sum := sum + a[i];
  end;
writeln(sum);
end.

10.

var a: array[1..10] of real;
    sum: real;
    sred: real;
    notnull: integer;
    i: integer;

begin
sum := 0;
notnull := 0;
for i := 1 to 10 do
  begin
  read(a[i]);
  sum := sum + a[i];
  if a[i] <> 0 then
    notnull := notnull + 1;
  end;
sred := sum / notnull;
writeln(sred:0:2);
end.

[Greblin]

11. Прежде чем упрощать, желательно понять что в исходном то написано
12. Модифицируй 9. Там тока несколько операторов всатвить
13. Например, X ИЛИ Y ИЛИ (НЕ Z)

[WOLFak]

12.

var
 s:string;
begin
 readln(s);
 if (pos('4',s)<>0)and(pos('7',s)<>0) then
  writeln('Vhodyat');
end.