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

Ввести целочисленный массив, состоящий из 15 элементов. определить сумму и разность максимального и минимального элемента. в vba

👇
Ответ:
pashaShum12345
pashaShum12345
09.10.2022

Sub abc()

   Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer

   n = 15

   ReDim a(1 To n) As Integer

       For i = 1 To n

       a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")

   Next i

   aMax = a(1)

   aMin = a(1)

   For i = 2 To n

       If a(i) > aMax Then aMax = a(i)

       If a(i) < aMin Then aMin = a(i)

   Next i

   MsgBox "Сумма max+min =" & Str(aMax + aMin) & _

       "  их разность =" & Str(aMax - aMin)

End Sub

4,4(2 оценок)
Открыть все ответы
Ответ:
Сергей1901
Сергей1901
09.10.2022
Program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
Дан одномерный массив, получить удвоенную сумму всех положительных членов массива и найти сумму чисе
4,6(62 оценок)
Ответ:
ancordkot
ancordkot
09.10.2022

#include <iostream>

#include<vector>

using namespace std;

int square(int x){

for (int i = 1; i <= 45; ++i){

if (i * i <= x){

continue;

}

return (i - 1) * (i - 1);

}

}

int main()

{

int x, y, xwas, ywas, xywas;

cin >> x >> y;

xwas = square(x);

ywas = square(y);

xywas = square(x + y);

if (xwas + ywas < xywas){

cout << "Petya gives paint to Vasya";

}

else if (xwas + ywas == xywas){

cout << "Equal";

}

else {

cout << "Petya leaves paint to himself";

}

return 0;

}#include <iostream>

#include<vector>

using namespace std;

int square(int x){

for (int i = 1; i <= 45; ++i){

if (i * i <= x){

continue;

}

return (i - 1) * (i - 1);

}

}

int main()

{

int x, y, xwas, ywas, xywas;

cin >> x >> y;

xwas = square(x);

ywas = square(y);

xywas = square(x + y);

if (xwas + ywas < xywas){

cout << "Petya gives paint to Vasya";

}

else if (xwas + ywas == xywas){

cout << "Equal";

}

else {

cout << "Petya leaves paint to himself";

}

return 0;

}

Объяснение:

4,4(37 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ