Помогите, надо написать программу на паскале

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

2. Двумерный массив задан с клавиатуры. Найти произведение элементов, выше главной диагонали.

Question

Информатика

Амая

7 сентября, 03:39

Помогите, надо написать программу на паскале

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

2. Двумерный массив задан с клавиатуры. Найти произведение элементов, выше главной диагонали.

+5

Ответы (1)

Знаете ответ на вопрос?

Сеитагья · Answer 1

первая часть

Program TZ5;

const

n=10;

var

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

i, b:integer;

begin

for 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 do

writeln (i,' ', a[i]) ;

readln;

end.