profile
Опубликовано 2 года назад по предмету Информатика от na2005stud

Помогите решить задачи на паскаль.
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.



2)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти сумму четных элементов массива.



3)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти максимальный элемент массива.



4)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти максимальный элемент массива среди элементов,
кратных 3.

  1. Ответ
    Ответ дан aiklenceAiklence
    1) var  a: array[0..100] of integer;  i, s, n: integer;
    begin 
    writeln('Введите количество элементов в массиве: '); readln(n);   
    for i := 1 to n do   begin   
    a[i] := random(10);   
    write(a[i], ' ');   
    s := s * a[i]; 
    end;   
    writeln; 
    writeln(s);
    end.

    2) 
    var  a: array[0..100] of integer;  i, s, n: integer;
    begin 
     writeln('Введите количество элементов в массиве: '); readln(n);   
    for i := 1 to n do   begin   
    a[i] := random(10);   
    write(a[i], ' '); 
    end;   
    for i := 1 to n do   begin   
    // if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.   
    // if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. 
    end;   
    writeln; 
    writeln(s);
    end.

    3)
    var  a: array[0..100] of integer;  i, s, n, max: integer;
    begin 
    writeln('Введите количество элементов в массиве: '); readln(n);   
     for i := 1 to n do   begin   
    a[i] := random(10);   
    write(a[i], ' '); 
    end; 
    s:=0; 
     for i := 1 to n do   begin   
    if (a[i]>s) then s:=a[i]; 
    end;   
    writeln; 
    writeln(s);
    end.

    4)
    var  a: array[0..100] of integer;  i, s, n, max: integer;
    begin 
    writeln('Введите количество элементов в массиве: '); readln(n);   
    for i := 1 to n do   begin   
    a[i] := random(10);   
    write(a[i], ' '); 
    end; 
    s:=0; 
    for i := 1 to n do   begin   
    if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; 
    end;   
    writeln; 
    writeln(s);
    end.
  2. Ответ
    Ответ дан Makanaka_bot
    1) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); s := s * a[i]; end; writeln; writeln(s); end. 2) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; for i := 1 to n do begin // if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов. // if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. end; writeln; writeln(s); end. 3)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) then s:=a[i]; end; writeln; writeln(s); end. 4)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; end; writeln; writeln(s); end.
  3. Ответ
    Ответ дан Вика
    1) var a: array[0 ... 100] of integer; i, s, n: integer; begin writeln ('Введите количество элементов в массиве: '); readln (n); for i : = 1 to n do begin a[i] : = random (10); write (a[i], ' '); s : = s * a[i]; end; writeln; writeln (s); end. 2) var a: array[0 ... 100] of integer; i, s, n: integer; begin writeln ('Введите количество элементов в массиве: '); readln (n); for i : = 1 to n do begin a[i] : = random (10); write (a[i], ' '); end; for i : = 1 to n do begin / / if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов. / / if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. end; writeln; writeln (s); end. 3) var a: array[0 ... 100] of integer; i, s, n, max: integer; begin writeln ('Введите количество элементов в массиве: '); readln (n); for i : = 1 to n do begin a[i] : = random (10); write (a[i], ' '); end; s:=0; for i : = 1 to n do begin if (a[i]>s) then s:=a[i]; end; writeln; writeln (s); end. 4) var a: array[0 ... 100] of integer; i, s, n, max: integer; begin writeln ('Введите количество элементов в массиве: '); readln (n); for i : = 1 to n do begin a[i] : = random (10); write (a[i], ' '); end; s:=0; for i : = 1 to n do begin if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; end; writeln; writeln (s); end.
  4. Ответ
    Ответ дан lemon
    Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти сумму четных элементов массива. 3) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти максимальный элемент массива. 4) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти максимальный элемент массива среди элементов, кратных 3.
Самые новые вопросы
ПДФ конвертер