ОООЧЕНЬ НУЖНА ПОМОЩЬ!...

Тема в разделе "Информатика", создана пользователем Shantel, 6 янв 2010.

  1. Shantel

    Shantel New Member

    ОООЧЕНЬ НУЖНА ПОМОЩЬ! НУЖНО НАПИСАТЬ ПРОГРАММЫ (ХОТЯ БЫ ДВЕ,ПОЖАЛУЙСТА) В ПАСКАЛЕ ABC! 1. Дан массив. Все элементы уменьшить на число a.2. Дан массив целых чисел. Верно ли,что сумма элементов массива есть четное число.
     
  2. Lexej

    Lexej New Member

    2. Найти сумму чисел массива в переменной Sum, а потом: 
    Writeln('Сумма элементов массива чётное число = ', not odd(Sum));
    1.
     
    var m:array[1..100] of integer;
            i,a,n:integer;
    begin
    write('Введите размерность массива: ');readln(n);
    write('Введите число А: ');readln(a);
    writeln('Введите массив: ');
    for i:=1 to N do
    readln(m);
    writeln('Массив: ');
    for i:=1 to N do
    M:=m-a;
    for i:=1 to N do
    write(M,' ');
    end.
     

Поделиться этой страницей

Наша группа