Задать вопрос
9 мая, 00:19

дан массив А, содержащийф последовательность чисел: 0,5; 12; -18; 16; 13; 5; 8; 0 Сформировать массив В. каждый элемент которого вычисляется по формуле: В (I) = A (I) / 2 Вывести на печать элементы массива В Вычислить сумму элементов массивов А И В Вывести на печать первый элемент массива А и первый элемент массива В

+2
Ответы (1)
  1. 9 мая, 02:47
    0
    Есть сомнения в том первый элемент массива это 0.5 или же это 2 элемента 0 и 5 и тогда объявление массивов будет следующим var a:array[1 ... 9] of integer = (0,5,12,-18,16,13,5,8,0) ; b: array[1 ... 9] of real;

    Program massiv;

    Uses Crt;

    var a:array[1 ... 8] of real = (0.5,12,-18,16,13,5,8,0) ;

    b: array[1 ... 8] of real;

    sum:real

    i:integer;

    begin

    clrscr;

    write ('Массив B: ') ;

    sum:=0;

    for i:=1 to 8 do

    begin

    b[i]:=a[i]/2;

    sum:=sum+a[i]+b[i];

    write (b[i]:2:2) ;

    end;

    writeln;

    writeln ('Сумма элементов массивов а и b: ', sum) ;

    writeln (' Первый элемент массива а : ', a[1]:2:2) ;

    writeln (' Первый элемент массива b : ', b[1]:2:2) ;

    readkey;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «дан массив А, содержащийф последовательность чисел: 0,5; 12; -18; 16; 13; 5; 8; 0 Сформировать массив В. каждый элемент которого ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы