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

2и 3 , нужен блок и программа в паскале

👇
Открыть все ответы
Ответ:
ilyas59
ilyas59
09.05.2022

 Program SumAndMul;

Uses Crt;

var a:array[1..10] of real;

       i:integer;   

 

       sum,mul:longint;

begin

     clrscr;

     for i:=1 to 10 do

            begin

                 write('Введите -', i,' число:'  );

                  readln(a[i]);

             end;

 

 

sum:=0;mul:=1;

for i:=1 to 10 do

            begin

                if (a[i]>0) then sum:=sum+a[i];

                if (a[i]<0 )  then mul:=mul*a[i];

             end;    

 writeln('Сумма положительных элементов: ',sum);

 writeln('Произведение отрицательных элементов: ',mul);  

   readkey;

 

end.

 

 

 

4,5(57 оценок)
Ответ:
кика20052
кика20052
09.05.2022
Реализация на с++

Уровень А
#include<iostream.h>

using namespace std;

int main(){
  int a,b;
  cin >>a >> b;
  double s = 0.5 * a * b;
  cout << s << endl;
  return 0;
}
Уровень B
#include<iostream.h>

using namespace std;

int main(){
  int n;
  cin >> n;
  (n%3==0) ? n*2 : n+n%3;
  cout << n << endl;
  return 0;
}
Уровень C
#include<iostream.h>

using namespace std;

int main(){
  int summa = 0;
  for(int i = 1; i < 100; i+=2){
     summa += i;
  }
  cout << summa << endl;
  return 0;
}
4,6(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ