Const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Массив A:
21 46 43 5 40 32 26 34 29 48
s1 = 159 s2 = 165
Подробнее - на Znanija.com -
znanija.com/task/22500151#readmore
⌐(x ⋀ y) ⋁ z (см.картинку)
При составлении таблиц истинности необходимо:
1. Выяснить количество строк в таблице (2^n, где n – количество переменных, + 1(строка под заголовки)).
Здесь 3 переменные: x, y и z
2^3 = 8
8 + 1 = 9 строк
2. Выяснить количество столбцов (количество переменных + количество операций).
Здесь 3 операции:
1. x ⋀ y (промежуточная логическая формула)
2. ⌐(x ⋀ y) (промежуточная логическая формула)
3. ⌐(x ⋀ y) ⋁ z (формула)
Здесь 3 переменные: x, y и z
3 + 3 = 6 столбцов
3. Установить последовательность выполнения логических операций.
Порядок выполнения логических операций в сложном логическом выражении:
1. Инверсия
2. Конъюнкция
3. Дизъюнкция
4. Импликация
5. Эквивалентность
6. Для изменения указанного порядка выполнения операций используются скобки
Здесь порядок выполнения операций:
1. x ⋀ y
2. ⌐(x ⋀ y)
3. ⌐(x ⋀ y) ⋁ z
4. Построить таблицу, указывая названия столбцов и возможные наборы значений исходных логических переменных.
5. Заполнить таблицу истинности по столбцам.
Г-голубая куртка
Р-розовая куртка
Ф-фиолетовая куртка
З-золотая кепка
В-кепка в горошек
Рассмотрим все различные варианты:
ГЗ
РЗ
ФЗ
ГВ
РВ
ФВ
6 вариантов
Также эту задачу можно решить с помощью комбинаторики:
3*2=6
Ответ: 6
CLS
INPUT a
m=0
FOR I=1 TO a
INPUT b
IF (b mod 10=8) AND b>m THEN m=b
END IF
NEXT
PRINT m
END
Вид алгоритма: разветленный