М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
bbezza66
bbezza66
24.05.2020 15:11 •  Информатика

Дан массив. найти произведение элементов массива, уменьшенных вдвое

👇
Ответ:
Sekureti556
Sekureti556
24.05.2020

double array[]={4,2,5,8};
double answer=1;
for(int i=0;i<sizeof(array)/8;i++)
answer*=array[i]/2;
cout<<answer<<endl;

 

ввод реализуйте как угодно

4,4(43 оценок)
Ответ:
Djeka11
Djeka11
24.05.2020

Если я правильно понял условие:

 

var a:array[1..10]of integer;

i,n:integer;

begin

for i:=1 to 10 do readln(a[i]);

n:=1;

for i:=1 to 10 do n:=n*a[i];

writeln(n/20);

end.

4,5(59 оценок)
Открыть все ответы
Ответ:
AnnaVag8912
AnnaVag8912
24.05.2020
1) перекодування даних, яке проводиться з метою зменшення їх об'єму, розміру, обсягу.
2) це процес стискування інформації (файлів, груп файлів, каталогів, цілих дисків) з метою економії дикого простору та захисту її від несанкціонованого доступу.
3) процес відновлення файлів з архіву в тому самому вигляді, який вони мали до упакування в архів
4) результат архівування
5) сучасні програмні засоби для створення та обслуговування архівів.
6) це архіви, до яких приєднано виконуваний модуль, що дозволяє витягати (розпаковувати) файли простим запуском архіву як звичайної програми (без програми-архіватора).
7)це архіви, що складаються з декількох частин (файлів), які називають томами
8)ZIP; RAR; RLE; CAB; GZIP, TAR

10)для створення і керування архівними файлами
4,7(17 оценок)
Ответ:
Mary200001313
Mary200001313
24.05.2020
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
4,7(49 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ