profile
Опубликовано 6 месяцев назад по предмету Информатика от 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.
Самые новые вопросы