profile
Размещено 5 лет назад по предмету Информатика от anastasiarubbo

Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
2. Вводится одномерный массив размерностью 100 для обработки данной программой. Что делает программа?

Program pr;

Var х: array [1..100] of integer;

i, s: integer;

begin

s: =0;

for i:=l to 100 do

begin

readln (x [i]) ;

if i mod 2=0 then s:=s+x[i] ;

end;

writeln (s) ;

end.

Данная программа определяет:

1.сумму значений элементов массива с четными индексами;
2.сумму значений отрицательных элементов;
3.количество элементов, значение которых четное число;
4.среднее арифметическое значений элементов массива с четными индексами.

  1. Ответ на вопрос
    Ответ на вопрос дан ildarapple

    1.Program massiv;

    const n=15;

    Var a: array [1..n] of integer;

    s,i integer;

    Begin

    writeln (‘ исходный массив.‘);

    For i:= 1 to n do

    begin

    a [ i] := random (6);

    write (‘a[‘i'] =', a[i], '');

    end;

    s:=0;

    For i:= 1 to n do

    s:= s*a[i];

    Writeln (‘ сумма всех элементов массива S=‘, s);

    end.

    2.1

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.