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

Подскажите
Какой тип переменой должен быть в Паскале для числа i:=40000000000

👇
Ответ:
devil2a
devil2a
01.07.2020

Я конечно не АС паскаля, но вроде бы int64

ответ: int64

4,5(54 оценок)
Открыть все ответы
Ответ:
alkatrasnoob
alkatrasnoob
01.07.2020
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

uses NumLibABC;

begin

var y:=ArrRandomReal(20,-10,10);

var mas:=y.Select(t->round(t*100)/100).ToArray;

var V:= new Vector(mas); 

var b:=V.Value.Where(t->t>0).Sum; 

Writeln('сумма положительных чисел=',b);

var t:=V.Value.Where(t->t<0).Sum;

Writeln('сумма отрицательных чисел=',t);

var a:=V.Value.Min; var promax:=a*b; var promin:=a*t;

Writeln('произведение суммы >0  на min элемент вектора=',promax);

Writeln('произведение суммы <0  на min элемент вектора=',promin);

var h:=V.Value.IndexMin; 

var f:=V.Value.Where((V,I)->(I>h) and ( i< 20-1)).sum;

Writeln('суммa элементов вектора между min и последним
элементом=',f);

var p:=V.Value.Where((V,I)->(I<16) or (I>16));

Writeln('вектор без 16 элемента ->');p.Println;

end.
Код на паскаль дан вектор а[1: 20] а) найти сумму положительных чисел и сумму отрицательных чисел б)
4,5(60 оценок)
Ответ:
kkatya3082
kkatya3082
01.07.2020
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
// Не знаю, есть ли какая то разница между векторами и массивами в Паскале, поэтому написал с массивом
begin
var a:=ReadArrInteger('Введите элементы вектора', 20);
Writeln('Сумма положительных элементов -> ', a.Where(t -> t > 0).sum);
Writeln('Сумма отрицательных элементов -> ', a.Where(t -> t < 0).sum);
Writeln('Произведение суммы пложительных чисел на минимальный элемент -> ', a.Where(t -> t > 0).sum * a.Min);
Writeln('Произведение суммы отрицательных чисел на минимальный элемент -> ', a.Where(t -> t > 0).sum * a.Min);
Writeln('Сумма между min и последним элементом вектора -> ', a.Where((v,i)-> i > a.IndexMin).Sum);
a:= a[:15]+a[16:];
Writeln(a);
end.
4,4(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ