Современное решение:

// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.

Тестовый прогон:
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70

0 0

4 года назад

Какие операции равенства и отношения записывают в логических выражениях c ++?

ольга199 [23]

== для равенства, >= "больше", <= "меньше", != для неравенства. Иногда вместо != ставят <>

0 0

1 год назад

Помогите решить,пожалуйста!1. Переведите числа из 2 с.с. в: а) 10 сс-1110101 б) 16 сс-111100111102. Переведите десятичную дробь

Magdalena [46]

Могу дать сайт http://math.semestr.ru/inf/index.php

0 0

1 год назад

Программа для паскаль для. F=sin (Y^2) - Ln(XY) помогите пожалуйста!!!

КаринаВ

Ответ:

uses

Math;

var

F, X, Y: Double;

begin

Write ('Введите X, Y: ');

ReadLn (X, Y);

F := Sin (Power (Y, 2)) - Ln (X * Y);

WriteLn ('F = ', F :10 :5);

ReadLn;

end.

0 0

4 года назад

Задан шаблон ?bas*.t*.Какой из файлов будет выбран по этому шаблону? A)tbatt.txt B)tbas.tx C)tbbast.txt D)bas.tx

Задан шаблон ?bas.t.Какой из файлов будет выбран по этому шаблону? A)tbatt.txt B)tbas.tx C)tbbast.txt D)bas.tx