Задать вопрос
28 февраля, 16:14

Составить программы для паскаля для следующих задач:

1. В массиве из 10 элементов подсчитать количество нечетных элементов

2. Вычислить сумму квадратов элементов, больших 2. Массив состоит из 5 элементов действительного типа.

3. Даны два массива. Сформировать третий массив, каждый элемент которого равен разности соответствующих элементов известных массивов.

4. Определить значение и порядковых номер максимального элемента.

+2
Ответы (1)
  1. 28 февраля, 19:52
    0
    Program z1;

    uses crt;

    const n=10;

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

    i, s: integer;

    begin

    clrscr;

    s:=0;

    writeln ('Введите элементы массива') ;

    for i:=1 to n do begin

    read (a[i]) ; / / ввод элементов в одну строку через пробел

    if a[i] mod 2 = 1 then inc (s)

    end;

    writeln (s) ;

    readkey;

    end.

    program z2;

    uses crt;

    const n=5;

    var a: array[1 ... n] of real;

    i: integer;

    s: real;

    begin

    clrscr;

    s:=0;

    writeln ('Введите элементы массива') ;

    for i:=1 to n do begin

    read (a[i]) ; / / ввод элементов в одну строку через пробел

    if a[i]>2 then s:=s+sqr (a[i])

    end;

    writeln (s) ;

    readkey;

    end.

    program z3;

    uses crt;

    const n=5;

    var a1, a2, a3: array[1 ... n] of integer;

    i: integer;

    begin

    clrscr;

    randomize;

    for i:=1 to n do begin

    a1[i]: = random (100) + 1; / / рандомное число от 1 до 100

    a2[i]: = random (100) + 1;

    a3[i]:=a1[i]-a2[i];

    writeln (a1[i], ' ', a2[i], ' ', a3[i]) ;

    end;

    readkey;

    end.

    program z4;

    uses crt;

    const n=10;

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

    max, c, i: integer;

    begin

    clrscr;

    writeln ('Введите элементы массива') ;

    for i:=1 to n do read (a[i]) ;

    max:=a[i];

    for i:=1 to n do begin

    if max
    end

    end;

    writeln ('') ;

    writeln ('max=', max, ' номер=', c) ;

    readkey;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить программы для паскаля для следующих задач: 1. В массиве из 10 элементов подсчитать количество нечетных элементов 2. Вычислить ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы