var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
Заметим, что есть условие, проверяющее, является ли какой-нибудь элемент массива Sea больше 220. Сразу же откидываем все элементы, которые меньше 220: 1, 2, 3, 4, 6 (поскольку 220 не больше 220, а равно), 8, 9, 10, 11, 12. Остаются элементы 5 и 7. После того, как оператор (то, что проверяется) в условии равен истине, выполняется увеличение переменной s на величину элемента массива. У нас прошло через условие лишь два элемента, поэтому, к существующей переменной s, равной 1 мы добавляем 230 (5-й элемент) и 240 (7-й элемент) и получаем:
100 + 230 + 240 = 570
<h2><u>Ответ</u></h2>
570
Var
C,N:array[1..10] of integer;
A,i,j,m:integer;
Begin
WriteLn('Введите десять целых чисел');
j:=0;
m:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A mod 2 = 0 then
Begin
j:=j+1;
C[j]:=A;
End
else
Begin
m:=m+1;
N[m]:=A;
End
End;
Write('Массив чётных чисел: ');
For j:= 1 to j do
Write(C[j],' ');
WriteLn;
Write('Массив нечётных чисел: ');
For m:= 1 to m do
Write(N[m],' ');
End.
Есть языки программирования для конкретных задач
