Составить программу заполнения массива а[1..10] следующими числами:индекс массива 1 2 3 4...

Question

Составить программу заполнения массива а[1..10] следующими числами:индекс массива 1 2 3 4 5 6 7 8 9 10
значение элемента 1 6 3 12 5 18 7 24 9 30

закономерность- значения элементов с нечетными индексами равны индексу элемента,а значения элементов с четными индексами-утроенному индексу элемента

нужно он var то end.

Comments

Задача легкая, но не понтно что именно требуется и как заполнять массив. Количество ячееек в таблице сколько? 10 или считывается из файла?

---

и вообще тут надо работать с файлами или нет?

---

Да?

---

напишите что небудь

---

счас скину задание

Answer 1

Const
  n = 10;

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

begin
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    if (i mod 2) = 0 then a[i] := 3 * i else a[i] := i;
    Write(a[i]:3)
  end
end.

Тестовое решение:

Элементы массива:   1  6  3 12  5 18  7 24  9 30

Comments

Перед end можно не ставить

---

Я на Паскале писал программы, когда Вас еще на свете не было)))

---

Не за что) Обращайтесь)

---

спасибо)

---

А почему он без точки с запятой работает?))) Мне просто говорят всегда писать её. Она не обязательна?

---

аххаха

---

А насчет точки с запятой - учите матчасть, сударь! ))))

---

Блин, сори, перепутал четные с нечетными >_<

---

Это результат её реального выполнения, а не с фонаря циферки.

---

То, что выдает программа - написано. Ошибок в ней нет.

Answer 2

Var
i,n:integer;
f1,f2:text;
begin
assign(f1, 'input.txt');
assign(f2, 'output.txt');
reset(f1);
rewrite(f2);
read (f1,n);
for i:=1 to n do
if (i mod 2) = 1 then write(f2, i, ' ' ) else write (f2, i*3, ' ');  
close(f1);
close(f2);
end.

Comments

ЗАЧЕМ ЧИТАТЬ ФАЙЛ, если потом его значения не используются?

---

я не знаю) я в 9 классе) это легкая, просто я не очень внимательный и из-за этого...

---

спасибо вам тоже но тут както мудрено для 9 касса

---

Ну мало ли) Просто я всегда с файлами работаю)

---

Все понял, кроме одного: зачем нужен входной файл и его чтение?

---

А....девятый класс.... ну ничего, еще есть время научиться писать программы))))