Вопрос задан 01.03.2019 в 14:03. Предмет Информатика. Спрашивает Продащук Яна.

1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив

из 7 элементов.Найти колличество четных положительных элементов. 3)Дан массив из 6 элементов.Найти произвдение положительных из них.
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Дейкун Таня.

Program Alexandra_1;
uses crt;
const n=5;
var
  a:array[1..n] of integer;
  i, sum: integer;
begin
  sum:=0;
  for i:=1 to n do
  begin  
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if a[i]>0 then sum:=sum+a[i];
  end;
  writeln('Сумма положительных элементов ',sum);
end.

Program Alexandra_2;
uses crt;
const n=7;
var
  a:array[1..n] of integer;
  i, num: integer;
begin
  num:=0;
  for i:=1 to n do
  begin  
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if (a[i]>0) AND (a[i] mod 2 = 0) then num:=num+1;
  end;
  writeln('Количество четных положительных элементов ',num);
end.

Program Alexandra_3;
uses crt;
const n=6;
var
  a:array[1..n] of integer;
  i, tum: integer;
begin
  tum:=1;
  for i:=1 to n do
  begin  
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if a[i]>0 then tum:=tum*a[i];
  end;
  writeln('Произведение положительных элементов ',tum);
end.

0 0
Отвечает Шишкин Роман.

uses crt;

var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a[i]:=random(15)-5;
if a[i]>0 then s:=s+a[i];
end;
writeln(s);
readln;
end.


uses crt;

var i,s:integer;
a:array[1..7] of integer;
begin
s:=0;
randomize;
for i:=1 to 7 do
begin
a[i]:=random(15)-5;
if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);
end;
writeln(s);
readln;
end.

 

uses crt;

var i,s:integer;
a:array[1..6] of integer;
begin
s:=1;
randomize;
for i:=1 to 6 do
begin
a[i]:=random(15)-5;
if (a[i]>0) then s:=s*a[i];
end;
writeln(s);
readln;
end.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

1) Для нахождения суммы положительных элементов в одномерном массиве из 5 элементов, необходимо пройти по всем элементам массива и сложить все положительные числа. Если элемент больше нуля, то прибавляем его к переменной sum.

Пример решения на языке Python:

```python arr = [-2, 3, -5, 7, 1] sum = 0

for num in arr: if num > 0: sum += num

print(sum) # Выводит 11 ```

2) Для нахождения количества четных положительных элементов в одномерном массиве из 7 элементов, нужно пройти по всем числам массива и проверить, является ли каждое число положительным и четным. Если число удовлетворяет этим двум условиям, увеличиваем счетчик на 1.

Пример решения на языке Python:

```python arr = [1, 2, 3, -4, 5, -6, 8] count = 0

for num in arr: if num > 0 and num % 2 == 0: count += 1

print(count) # Выводит 2 ```

3) Для нахождения произведения положительных элементов в одномерном массиве из 6 элементов, нужно пройти по всем числам массива и перемножить все положительные числа. Если число больше нуля, то умножаем его на переменную product.

Пример решения на языке Python:

```python arr = [2, -1, -4, 3, 5, -2] product = 1

for num in arr: if num > 0: product *= num

print(product) # Выводит 30 ```

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос