В результате выполнения программы на экран выводится массив, состоящий из 10 элементов. Каждый элемент представляет собой число из диапазона от 0 до 45.
А также выводится сумма всех элементов сформированного массива

0 0

4 года назад

Заполнить массив из 10 элементов случайными числами в интервале [0,100] и подсчитать среднее значение всех элементов, которые &l

3003

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,0,100); a.Println;
Writeln(a.Where(x->x<50).Average)
end.

Пример
59 31 97 34 33 2 64 84 79 37
27.4

0 0

4 года назад

Дан целочисленный массив с количеством элементов n. Напечатать те его элементы, индексы которых являются степенями двойки (1, 2

Евгений86575

Есть способ поизящнее, но можно и так:

program test;
uses crt;
var
arr:array[1..100] of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
arr[i]:=random(100);
write(i,': ');
writeln(arr[i]);
end;
writeln;

i:=2;
while(i<100)do
begin
write(i,': ');
writeln(arr[i],' ');
i:=i*2;
end;
readln;
end

0 0

4 года назад

Напишите блок-схему к программе: Uses crt; Var n:integer; Begin Writeln('с фамилией какого из древних учёных связано происхожден

briz3

Есть такая приблуда FCEditor называется, кидаете туда программу на паскале, она вам блок-схему рисует.

0 0

4 года назад