laktionova-natal
?>

с информатикой! Заранее Массив А вводится. Вывести массив А, в , котором элементы +20 (язык программирования Паскаль)

Информатика

Ответы

Милита1065

program arrayA;

const Max = 100; // Размер массива

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

N: integer; // Количество элементов в массиве

 i: integer;

begin

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

 readln(N);

 write('Введите элементы массива: ');

 for i:=1 to N do

   read(a[i]);

 write('Вывод элементов массива с значением +20: ');

 for i:=1 to N do

   write((a[i]+20),' ');

end.

Объяснение:

Вот и все

Galina-Marat1096

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   int N;

   cin >> N;

   vector<int>negative;

   vector<int>positive;

   for (int i = 0; i < N; i++) {

       int A;

       cin >> A;

       if (A < 0)

           negative.push_back(A);

       else

           positive.push_back(A);

   }

       

   for (int i = 0; i < negative.size(); i++)

       cout<< negative[i]<<" ";

   for (int i = 0; i < positive.size(); i++)

       cout << positive[i] << " ";

}

andreevaanastsiyao82

import math

a = int(input("Введите коэффициент a"))

b = int(input("Введите коэффициент b"))

c = int(input("Введите коэффициент c"))

if (b ** 2 - 4 * a * c == 0):

   print("Уравнение имеет всего 1 корень", -b / (2 * a))

if (b ** 2 - 4 * a * c > 0):

   x1 = (- b + math.sqrt(b ** 2 - 4 * a * c)) / (2 * a)

   x2 = (- b - math.sqrt(b ** 2 - 4 * a * c)) / (2 * a)

   print("Уравнение имеет 2 корня", x1, x2)

if (b ** 2 - 4 * a * c < 0):

   print("Уравнение не имеет корней в действительных числах")

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

с информатикой! Заранее Массив А вводится. Вывести массив А, в , котором элементы +20 (язык программирования Паскаль)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Viktorovna_Yurevna
dawlatowajana
eutenkova805
Gennadievna bessonov
samoilovcoc
anitanemtsewa
Решетникова
olgusikok
kalina1372
mupmalino2653
mantseva
avakarica
julianikaleksandrova
samogon-mozhaisk
kettikis