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

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

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

4 года назад

15

Помогите срочно 20 балов!!

Помогите срочно 20 балов!!

Информатика

2 ответа:

Тосик0605 [64]4 года назад

0 0

Ответ:

есть программа для такого решения

ВАСЯ444 года назад

0 0

Ну есть же фотомач. но я не зною ответ

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

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

Geo76

function MyCool(a: array of integer): array of integer;

begin

Result := new integer[6];

var (min, max, kn, kp, kz) := (a[0], a[0], 0, 0, 0);

for var i:= 0 to a.High do

begin

if a[i] > 0 then kp += 1;

if a[i] = 0 then kz += 1;

if a[i] < 0 then kn += 1;

if a[i] > max then max := a[i];

if a[i] < min then min := a[i]

end;

Result[0] := max;

Result[1] := min;

Result[2] := kn;

Result[3] := kp;

Result[4] := kz;

Result[5] := kp + kz

end;

begin

var a := ArrRandom(10, -10, 10);

a.Println;

var b := MyCool(a);

Println('Значение наибольшего элемента массива:', b[0]);

Println('Значение наименьшего элемента массива:', b[1]);

Println('Количество отрицательных элементов массива:', b[2]);

Println('Количество положительных элементов массива:', b[3]);

Println('Количество нулевых элементов массива:', b[4]);

Println('Количество неотрицательных элементов массива:', b[5])

end.

0 0

4 года назад

Используя пятилитровый и четырёхлитровый бидоны,набери из водопроводного крана 3 литра воды

akkaj [54]

Налить воды в четырёх литровый бидон, перелить из него всю воду в пяти литровый, наполнить опять 4-х литровый и заполнить 5-ти литровый

0 0

4 года назад

Почему у меня не работает программа? Program PR1; Uses crt; begin clrscr; assing(f,'Data'); rewrite(f); for i:=1 to 10 do begin

Светлана287 [56]

<span>Program PR1;
Uses crt;
var f:text;
a,i:longint;

begin
clrscr;
assign(f,'Data');
rewrite(f);
for i:=1 to 10 do
begin
readln (a);
write (f,a);
end;
close(f);
end.

и еще надо дописать разрешение файла Желательно</span>

0 0

4 года назад

2. Составить программу для нахождения цифр четырехзначного числа. Ниже представлен пример диалога. Данные, вводимые пользователе

BlackGraf [46]

Program pr;
uses crt;
Var a, x1, x2, x3, x4:integer;
Begin
Writeln('введите 4-х значное число');
readln(a);
x1:=a div 1000;
x2:=(a mod 1000) div 100;
x3:=(a mod 100) div 10;
x4:=a mod 10;
Writeln(x1);
Writeln(x2);
Writeln(x3);
Writeln(x4);
readln;
end.

0 0

4 года назад

Метеорологическая станция ведёт наблюдение за температурой воздуха. Результатом каждого измерения температуры является целое чи

какя

В условии задания подразумевается, записываемое при помощи минимально возможного количества бит записывает информацию в двоичной системе счисления. Используя формула N=2i (обратная формула Хартли), найдем кол-во необходимых бит при которой N будет равна или больше -25 до 25. Получается, необходимо ваше количество бит, ( пример 111 = 7, 1111 = 15 ). Соответственно, для одной записи 1 измененияя потребуется вашечисло бит. Поскольку засуткибыло 12 изменений, то информационный объем сообщения составит ваше число бит *12 = ответ бит

ОТВЕТ

0 0

4 года назад