4 года назад

Вычислить произведение элементов одномерного массива ( программа c++) Помогите пожалуйста!!!

1 ответ:

0 0

//Dev-C++ 4.9.9.2

#include <iostream>
using namespace std;

int main(){
int k=1;
int ar[4];
for(int i=0;i<4;i++){
cin>>ar[i];
k=k*ar[i];}
cout<<k;
cin.get();
cin.get();
return 0;
}

Пример ввода:
1
2
3
4
Пример вывода:
24

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

Написать программу ,которая вводит в двумерный массив z[6:7] только четные числа

Na Mopede Alfa [22]

Программа может выглядеть так:

uses Crt;
const n=6;
        m=7;
type Mas=array [1..n, 1..m] of integer;
var Z: Mas;
    i,j: integer;
begin
ClrScr;
for i:=1 to n do
begin
for j:=1 to m do
     begin
      Z[i,j]:=2*(10+random(40));
      Write (Z[i,j]:6);
     end;
WriteLn;
end;
WriteLn;
ReadLn;
end.

0 0

4 года назад

Язык - Pascal 1)Есть ли в нем функция котангенса, или надо выражать самому, как 1/tan? 2) Можно ли эту строчку кода как-то упрос

MAXIM VASILETS

1) Нет котангенса ни в одной из реализаций паскаля (вот за Дельфи только не скажу, нет у меня её).
2) Выражение
d≠1 & d≠2 & d≠3 & d≠4 & d≠5 & d≠6 & d≠7 & d≠8 & d≠9 & d≠10 & d≠11,
если d - целочисленная переменная, можно упростить. Оно говорит, что d не входит в интервал целых чисел от 1 до 11, т.е. d ∉ [1;11].
Но тогда d ∈ [-∞;1), (11,∞), что заменяется парой условий d<1, d>11, или
d<1 or d>11
В синтаксисе языка паскаль: if (d<1) or (d>11) then

Если d имеет тип real, выражение не упрощается.

0 0

4 года назад

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

cIIacuTe-BuJIJIu [1]

использовать Чертежник

алг

нач

сместиться в точку (2, 2)

квадрат

сместиться на вектор (3, 3)

квадрат

сместиться на вектор (-3, 3)

квадрат

сместиться на вектор (6,0)

квадрат

сместиться на вектор (0, -6)

квадрат

кон

алг квадрат

нач

опустить перо

сместиться на вектор (0, 4)

сместиться на вектор (4, 0)

сместиться на вектор (0,-4)

сместиться на вектор (-4,0)

поднять перо

кон

0 0

4 года назад

Составить 3 истинных высказывания и 3 ложных высказывания.

Андрей1111

Компьютер из железа
человек чувствует
iPhone из алюминия
=========
вода сухая
компьютер живой
экран это устройство ввода

0 0

3 года назад

ПЛИИИЗ СРОЧНО НААДООО!!!!!дан целочисленный массив.выясните,все ли его элементы различны.напишите эффективную программу для реше

Рома Роман36 [1]

Если вам нужно на паскале, то ловите. Числа в массив выпадают рандомно. Диапазон (-50, 50):
var mass: Array[1..30] of real;
i, j: integer;
isE: boolean;
begin
randomize;
isE := true;
for i := 1 to 30 do begin
mass[i] := random (100) - 50;
end;
for i := 1 to 30 do begin
writeln('mass[', i, '] = ', mass[i]);
end;

for i := 1 to 30 do begin
for j := 1 to 30 do begin
if i <> j then begin
if mass[i] = mass[j] then begin
writeln('Массив не уникален!');
isE := false;
end;
end;
end;
end;
if isE = true then writeln('Массив уникален!');

end.

0 0

4 года назад