Задать вопрос
6 ноября, 06:47

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

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

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

+2
Ответы (1)
  1. 6 ноября, 07:06
    0
    первая часть

    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите, надо написать программу на паскале 1. Дан одномерный массив, заполненный по правилу: каждый элемент равен удвоенному порядковому ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы