PROGERalex
Опубликовано 6 лет назад по предмету Информатика от PROGERalex


Помогите, надо написать программу на паскале 1. Дан одномерный массив, заполненный по правилу: каждый элемент равен удвоенному порядковому номеру. Заменить элементы, стояшие на четных местах на нули. Распечатать полученный массив. 2. Двумерный массив задан с клавиатуры. Найти произведение элементов, выше главной диагонали.

  1. Ответ
    Ответ дан Crazzyone

    первая часть

    Program TZ5;constn=10;vara:array [1..n] of integer;i,b:integer;beginfor i:=1 to n do begin a[i]:=i*2; writeln(i,'  ',a[i]);end;for i:=1 to n do    if (i mod 2)=0 then       a[i]:=0;writeln('novuy massiv');for i:=1 to n dowriteln(i,'  ',a[i]);readln;end.

    1. Ответ
      Ответ дан Crazzyone
      По 2й части ответов на вопрос нет, так что вот решение для случайно формирующегося массива размерностью 10. Надеюсь заменить на самостоятельный ввод навыков хватит.
    2. Ответ
      Ответ дан Crazzyone
      Program sector;constn=10;typemyarray = array [1..n,1..n] of integer;vara: myarray;i,j,x,y,z: byte;proizv: real;beginrandomize;for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random (40); a[i,j]:=a[i,j]-20; write(a[i,j]:4); end; writeln; end;proizv:=0;for i:=1 to n do for j:=1 to i doproizv:=proizv*a[i,j];writeln('PROIZVEDENIE=',proizv);readln;end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц