Задать вопрос!

Задать вопрос!

Все категории

LeksKash [1.9K]

4 года назад

15

Ребят срочно надо помогите 15 балов даю

Информатика

1 ответ:

Leon45-LiveJournal4 года назад

0 0

Значения в таблице перемножаются

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

Сколько Кбит информации содержит сообщение объёмом 2 в 17 степени байт

ostap958 [42]

Это будет 2 в 20й степени бит, то есть 1024 кбита.

0 0

3 года назад

1.разновидность компьютерной графики, в которой изображение строится на основе математических формул?2.разновидность компьютерно

vienichko

1.фрактальная
2.векторная
3.глубина

0 0

4 года назад

Составить алгоритм нахождения суммы 15 положительных чисел, которые генерируются случайным образом.(блок схемой)

грустная учительница

var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write('s=',s);
end.

0 0

4 года назад

Составьте программу, которая формирует массив, содержащий 12 случайных вещественных чисел от -1 до 3, и подсчитывает произведени

berkyt55

<h2>PascalABC.NET 3.4.2, сборка 1978 (12.02.2019) </h2>

program task31143948;
const
N = 12;
var
arr: array[1..N] of real;
Sum: real;
begin
Sum := 1;
for var i := 1 to N do
begin
arr[i] := Random()*4 - 1;
Writeln(arr[i]:5:2);
if arr[i] < 0 then
Sum := Sum * arr[i]
end;
if Sum = 1 then
Write('ПРОИЗВЕДЕНИЕ = 0')
else
Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
end.

0 0

3 года назад

Заполнить массив из 10 элементов случайными числами в интервале -10 10 и отсортировать первую половину возрастанию,а вторую по у

Руслан01 [1]

Program massivy;
var array1: array [1..10] of integer;
    i, b:integer;
begin
for i:=1 to 10 do
    array1[i]:=random(-10, 10);
for i:=1 to 4 do begin
    for b:=1 to 4 do
      if array1[b] > array1[b+1] then
        swap(array1[b], array1[b+1]);
end;
for i:=5 to 9 do begin
    for b:=5 to 9 do
      if array1[b] < array1[b+1] then
        swap(array1[b], array1[b+1]);
end;
for i:=1 to 10 do
    writeln(array1[i]);
end.

0 0

1 год назад