Постройте компьютерную табличную модель типа объект - вопрос №11724452 от ultraomegaus 01.03.2022 21:27

Question

Информатика: Постройте компьютерную табличную модель типа объект — свойства в текстовом редакторе используя словесное описание. История Витебска охватывает более тысячелетия. Согласно легенде, город был заложен киевской княгиней Ольгой в 974 году. Сегодня в Витебск — областной центр площадью 134,601 км². Согласно летописному преданиям, Заславль построен в 985 году киевским князем Владимиром Святославичем. Город находится в 12 км от Минска на реке Свислочь и имеет площадь 14,2 км². Туров — один из древнейших

ultraomegaus · Answer

Var a: array of integer; // Объявление массива целых чисел
i, n: integer; // объявление целочисленных переменных
begin
// Запросим с клавиатуры размер массива
// и запишем его в переменную n
write('введите n:');
readln(n);

// Теперь выделим память под n элементов массива
SetLength(a, n);

// теперь запросим с клавиатуры n чисел для массива
for i := 0 to n-1 do begin
write('a[', i, ']=');
readln(a[i]);
end;

// теперь в цикле уменьшим каждый элемент на единицу
for i := 0 to n-1 do
a[i] := a[i] - 1;

// распечатаем массив
for i := 0 to n-1 do
write(a[i], ' ');
end.