М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ankerkor
ankerkor
13.01.2022 12:57 •  Информатика

1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов 2)дан массив целых чисел.найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах. 3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.примечание: при вводе необходимо учесть, что первый элемент не может быть отрицательным.

👇
Ответ:
1)
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

const int size = 10;

int main()
{
    srand (time(0));
    int a[size];
    int k1 = 0,k2 = 0;
    for (int i=0; i<size; i++)
    {
        a[i]=rand()%20-10;
        cout <<a[i] <' ';
        k1+=(a[i]>0 && a[i]%2) ? a[i]:0;
        k2+=(a[i]<0 && !(a[i]%2)) ? 1:0;
    }
    cout <<k1 <<end <<k2 <<endl;
    return 0;
}

2)
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

const int size = 10;

int main()
{
    srand (time(0));
    int a[size];
    int k1 = 0,k2 = 0;
    for (int i=0; i<size; i++)
    {
        a[i]=rand()%20-10;
        cout <<a[i] <' ';
        k1+=(a[i]<0 && !(i%2)) ? 1:0;
        k2+=(a[i]>0 && !(a[i]%2) && i%2) ? a[i]:0;
    }
    cout <<k2 <<end <<k2 <<endl;
    return 0;
}
4,6(95 оценок)
Открыть все ответы
Ответ:
vovakornev2002
vovakornev2002
13.01.2022

Задача 1: 1

Задача 2:

begin

s:=0; k:=1;

while k < 11 do  begin

s:=s+k; k:=k+1;

end;

write(s);

end.

Задача 3:

11 10 9 8 7 7 10 11 12 13 14

Задача 4:

const N = 20;

const MAX = 100;

const MIN = -100;

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

var i,s: integer;

begin

randomize();

s:=-1;

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

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 if (A[i]>0) and (A[i] mod 5 = 0) then

   begin

   if (s=-1) then s:=A[i]

   else if (A[i]<s) then s:=A[i];

   end;

 write(A[i],' ');

 end;

writeln();

if (s<>-1) then writeln('Минимальное значение среди положительных',

' элементов массива кратных 5: ',s)

else writeln('Не найдено');

end.

4,6(64 оценок)
Ответ:
aidana70
aidana70
13.01.2022
Program chik;
const n=15;
var P:array[1..15]of real;
i:integer;
s:real;
begin
s:=0;
for i:=1 to n do
begin
read(p[i]);
if(i mod 2=0)and(p[i]<0)then s:=s+p[i];
end;
writeln(s);
end.
2)
program gt;
uses crt,graphabc;
const n=7;
var mac1,mac2,mac3:array[1..15]of real;
i,k1,k2:integer;
begin
k1:=0;k2:=0;
for i:=1 to n do
begin
read(mac1[i]);
if(mac1[i]>0)then begin
Inc(k1);
mac2[k1]:=mac1[i];
end;
if(mac1[i]<0)then begin
Inc(k2);
mac3[k2]:=mac1[i];
end;
end;
for i:=1 to n do
write(mac1[i],' ');
writeln;
for i:=1 to k1 do
write(mac2[i],' ');
writeln;
for i:=1 to k2 do
write(mac3[i],' ');
end.
4,4(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ