Var
a,i,n:integer;
b:array [1..50] of integer;
begin
readln(n);
for i:= 1 to n do
readln(b[i]);
i:=1;
a:=0;
while (b[i]<>0) and (i<=n) do
begin
if b[i] mod 2 =0 then a:=a+b[i];
inc(i);
end;
writeln('Сумма четных элементов = ',a);
end.
А) Ваня решает у доски задачу;
Хранение информации (в мозге Вани)
Обработка информации (оперирование исходной информацией для получения новой по определенным правилам)
Передача информации (От Вани – классу, используя доску)
б) Оля слушает по радио новости;
Передача информации (от радио – Оле, используя динамики)
Хранение информации (в мозге Оли)
в) Дима учит правило;
Хранение информации (внешняя память, книга)
Передача информации (от книги – Диме, используя текст)
Хранение информации (в мозге)
г) Саша и Вова разговаривают по телефону;
Хранение информации (в мозге у Саши)
Передача информации (от Саши – Вове, используя телефон)
Хранение информации (в мозге у Вовы)
д) Женя отправляет SMS-сообщение;
Хранение информации (в мозге у Жени)
Передача информации (от Жени – получателю, используя телефон)
Обработка информации (кодирование по каналу связи, декодирование)
Хранение информации (во внутренней памяти телефона у получателя)
<span>е) Лена рисует план квартиры. </span>
Хранение информации (в мозге у Лены)
Обработка информации (структурирование, математические расчеты)
<span>Хранение информации (внешняя память, лист бумаги/холст)</span>
По моим рассуждениям это: 3)7, была бы норм фотка то точно бы сказал.
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
5
Б А 1
В БАГЕ 1+1+1+1=4
Г А 1
Д БВ 4+1=5
Е Г 1
И Д 5
Ж ДВЕ 5+4+1=10
К ИЖЕ 10+5+1=16
Ответ:16
№6
АЕ=12
ACBFE=3+4+5+2=14
ACDFE=3+3+3+2=11
Ответ:1