profile
Опубликовано - 1 месяц назад | По предмету Информатика | автор Аноним

Помогите, пожалуйста, с задачей в Pascal: "Заполнить значениями первые 50 элементов массива следующим образом: A [1]=1

  1. Ответ
    Ответ дан Третьякова Тамара
    varn a: array[1..50] of integer;n i: integer;n s: integer;nnprocedure PrnTen( n, d : integer);nvarn k: integer;nbeginn writeln;n for k:= n to n+d don beginn if (k mod 2) = 1 then write('№ ', k, ' = ', a[k], ' ;');n end;nend;nnbeginnn a[1]:= 1n for i:= 1 to 49 don beginn a[i+1]:= a[i] + 4; n end;nn s:= 0;n for i:= 1 to 50 do s:= s + a[i];nn PrnTen( 10, 9);n PrnTen( 20, 9);n PrnTen( 30, 9);n PrnTen( 40, 9);nnend.nnВ первом цикле заполняется массив. Каждый элемент массива рассчитывается, как предыдущий значение предыдущего элемента плюс 4.nnВо втором цикле находится сумма всех элементов массива и сохраняется в переменной "s".nnДля печати нечетных элементов, в программу введена процедура печати.nПараметры процедуры: nn- номер первого элемента массива,nd- количество обрабатываемых элементовnВ процедуре начиная с элемента под номером "n", обрабатываются "d" элементов. На этом промежутке, все элементы с нечетными номерами печатаются на экране.nЭта процедура вызывается для печати нечетных элементов:n- первого десятка (10..19);n- второго десятка (20..29);n- третьего десятка (30..39);n- четвертого десятка (40..49).
    0