• 1. Найти сумму 1-го, 3-го и 5-го элементов массива A: arrat [1..15] of real.
    2. Найти и вывести на экран произведение элементов массива из 10 чисел, кратных 7. Массив заполняется случайными числами.

    СОСТАВЬТЕ ПОЖАЛУЙСТА ПРОГРАММЫ!!!

Ответы 1

  • 1.vari:integer;a:array [1..15] of real;rez:real;beginfor i:=1 to 15 do beginreadln(a[i]);end; rez:=a[1]+a[3]+a[5];writeln(rez);end.2.const z = 10; // Размер массива var  a: array [1..z] of integer; i,rez: integer; beginrez:=1;for i:=1 to z do begina[i] := Random(100);end;writeln('Элементы массива: ');for i:=1 to z do begin    write(a[i],' ');    if (a[i] mod 7 = 0) then    rez:=rez*a[i];end;writeln(' ');if (rez <> 1) thenwriteln(rez)elsewriteln('Нет элементов, кратных 7');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years