Составить программу в pascal, найти сумму произведений 1 и 2, 3 и 4, и тд элементов массива состоящего из 10 значений. заранее !

Var
a:array[1..10] of integer;
i, ans:integer;
begin
  Writeln('Введите массив из 10ти элементов: ');
  for i:= 1 to 10 do
    read(a[i]);
  i:= 1; ans:= 0;
  while i < 10 do
    begin
      ans:= ans + a[i] * a[i+1];
      i:= i + 2;
    end;
  Writeln(ans);  
end.

Школьные Знания.com

Какой у тебя вопрос?

10 - 11 классыИнформатика 8+4 б

Дан массив вещественных чисел:

Все элементы с нечетными номерами заменить на их квадратный корень

Отметить нарушение РРПП 01.04.2013

ответы и объяснения

Проверенный ответ

Tlalok

Tlalok Почетный грамотей

var

a:array[1..100] of real;

i, n:integer;

begin

write('Введите количество элементов '); readln(n);

for i := 1 to n do

begin

write('a[', i ,'] = ');

readln(a[i]);

end;

writeln;

writeln('Исходный массив:');

for i := 1 to n do

begin

write(a[i], ' ');

if i mod 2 = 1 then

a[i] := sqrt(a[i]);

end;

writeln;

writeln;

writeln('Преобразованный массив:');

for i := 1 to n do

write(a[i]:0:2, ' ');

writeln;

end.

1) (А∧В)-конъюнкция-ложь

2) (С∨D)-дизъюнкция-истина

3) (А∧В)-конъюнкция-ложь

4) (В∧С)-конъюнкция-истина

5) (А∨В)-дизъюнкция-ложь

6) (С∧D)-конъюнкция-истина

7) А-инверсия-истина

8) В -инверсия-истина

Объяснение:

Дизъюнкция является ложной, только когда два утверждения ложные, в остальных случаях является истиной (то есть когда одно утверждение истина, а другое ложь то в итоге получается истина, а когда два утверждения ложь, то является ложью)

Конъюнкция является истиной только в случае, когда оба высказывания являются истинными (то есть если высказывания будут оба ложными то значение будет ложным, также если одно из высказываний будет ложным или истинным то значение высказывания будут ложным)

Инверсия обращает высказывание в противоположную сторону, истину - в ложь, а ложь - в истину.