Question

РЕШИТЕ ЗАДАЧИ ПО ИНФОРМАТИКЕ ПАСКАЛЬ.1. Массив из 10 элементов. Вывести отрицательные элементы, кратные 3.2. Массив состоит из 8 элементов. Вычислить сумму нечётных элементов, больше 10.3. Массив состоит из 10 элементов. Определить количество элементов, рааных нулю с чётными индексами.ДАЮ 50 БАЛЛОВ!​

Answer 1

                                          PascalABC.NET                                          

Задание 1:

### RAI(10).Wh(x → (x<0) and x.D(3)).Pr

Задание 2:

### RAI(8).Wh(x → x.IsOdd and (x>10)).Sum.Pr

Задание 3:

### RAI(10)[::2].Count(x → x = 0).Pr

Answer 2

1) Код программы:

const N = 10;

var a:array[1..N] of integer;

i:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-100, 100);

   write(a[i], ' ');

 end;

 writeln();

 writeln('Отрицательные элементы, кратные 3: ');

  for i:=1 to N do begin

   if ((a[i] < 0) and (a[i] mod 3 = 0)) then

     write(a[i], ' ');

 end;

end.

2) Код программы:

const N = 8;

var a:array[1..N] of integer;

i, sum:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-100, 100);

   write(a[i], ' ');

 end;

 sum:=0;

 writeln();

 writeln('Сумма нечётных элементов, больше 10: ');

  for i:=1 to N do begin

   if ((a[i] > 10) and (a[i] mod 2 = 1)) then

     sum:= sum + a[i];

 end;

 write(sum);

end.

3) Код программы:

const N = 10;

var a:array[1..N] of integer;

i, kol:integer;

begin

 writeln('Массив:');

 for i:=1 to N do begin

   a[i] := random(-5, 5);

   write(a[i], ' ');

 end;

 kol:=0;

 writeln();

 writeln('Количество элементов, равных нулю с чётными индексами: ');

  for i:=1 to N do begin

   if ((a[i] = 0) and (i mod 2 = 0)) then

     kol:= kol + 1;

 end;

 write(kol);

end.

Answer 3

Ваши задачи можно решить на языке Паскаль следующим образом:

1. Массив из 10 элементов. Вывести отрицательные элементы, кратные 3.

program Task1;
var
 arr: array[1..10] of integer;
 i: integer;
begin
 for i := 1 to 10 do
   read(arr[i]);

for i := 1 to 10 do
   if (arr[i] < 0) and (arr[i] mod 3 = 0) then
     writeln(arr[i]);
end.

2. Массив состоит из 8 элементов. Вычислить сумму нечётных элементов, больше 10.

program Task2;
var
 arr: array[1..8] of integer;
 i, sum: integer;
begin
 sum := 0;
 for i := 1 to 8 do
   read(arr[i]);

for i := 1 to 8 do
   if (arr[i] > 10) and (arr[i] mod 2 <> 0) then
     sum := sum + arr[i];

writeln(sum);
end.

3. Массив состоит из 10 элементов. Определить количество элементов, равных нулю с чётными индексами.

program Task3;
var
 arr: array[1..10] of integer;
 i, count: integer;
begin
 count := 0;
 for i := 1 to 10 do
   read(arr[i]);

for i := 1 to 10 do
   if (arr[i] = 0) and (i mod 2 = 0) then
     count := count + 1;

writeln(count);
end.

В каждом из этих примеров мы сначала считываем элементы массива, затем проходим по массиву и проверяем каждый элемент на соответствие условию задачи. Если условие выполняется, мы выводим элемент или увеличиваем счетчик.