В массиве из 15 элементов заданого с клавиатуры посчитать сумму элементов больших 0 и меньше 15

Знания

Информатика

1 ответ:

Роман891 [58]1 год назад

0 0

<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

ReadSeqInteger('Вводите:', 15)

.Where(t -> t.InRange(1, 14)).Sum.Println

end.

Читайте также

Дано 2 числа найти большее из них. В ДЕЛФИ

Maksimus888

Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.

0 0

4 года назад

Упростить выражение ______(F^D) v F---->D

marczavodin

F*D+не(F->D)=F*D+не(неF+D)=F*D+F*неD=F(D+неD)=F*1=F

0 0

4 года назад

Помогите прошу! определить значение переменной а полученное в результате выполнения следующего алгорифма

YuryG

Начало

• Объявление целочисленной переменной со значением 1

• Объявление переменной с плавающей точкой со значением 1.4

• Присвоение значения переменной а равное 1.4 * 1 + (1/1.4) [2.1142857142857143]

• k?

• Вывод а (2.1142857142857143)

Конец

0 0

4 года назад

Какое логическое выражение равносильно выражению : -(A+-B+C) 1)-А+В+-С 2)А^-В^С 3)-А+-В+-С 4)-А^В^-С

Elen1

Ответ 3 -A+-B+-C………........

0 0

4 года назад

Написать программу, которая находит максимальное нечетное число среди чисел ,записанных в файле, и выводит результат в другой фа

SPN Anna

Program n1;
type z = array of integer;
var a: z;
i,n,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
setlength(a,n);
read(f,a[n-1]);
end;
close(f);
max:=a[0];
for i:= 1 to n-1 do
if (a[i]>max) and(a[i] mod 2<>0) then max:=a[i];
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.

0 0

3 года назад