Заполнить одномерный массив из двумерного согласно правилу

@LudmilaValinova · Регистрация: 11.01.2014

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста очень срочно надо! Есть квадратный массив целых чисел! например как на рисунке 8 на 8. Надо в линейный массив записать все элементы квадратного которые выше главной диагонали в порядке как показано на рисунке

. очень надо я питалась написать много вариантов но программа должным образом не работает, я пыталась написать программу в виде большого цикла которые состоят из 3 маленьких но у меня ошибка. Пожалуйста помогите написать программу. Заранее спасибо!!! Пожалуйста очень надо!
P.S Вот коды которые я пробовала набрать

. Просьба есть можно помочь в файловой версии но это не очень важно эти коды не очень хороши

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program Test6prog;
{$APPTYPE CONSOLE}
var
i,updeccount,upcount,file1count,dectmp,counter,allcounter,size,diagtmp:byte;
A:array [1..1000,1..1000] of longword;
Afile1:array [1..1000] of longword;
begin
write('Введите размер:');
read(size);
if size <> 2
then begin
allcounter:=size-1;
diagtmp:=1;
file1count:=1;
upcount:=1;
updeccount:=size;
{diagonal counter}
 for i:=1 to (size div 3) do
 for counter:=1 to allcounter do
 begin
 Afile1[file1count]:=A[counter,counter+diagtmp];
 inc(file1count);
 end;
 dec(allcounter);
 inc(diagtmp);
 for counter:=allcounter to upcount do
 begin
 Afile1[file1count]:=A[counter,updeccount];
 inc(file1count);
 end;
 dec(updeccount);
 dec(upcount,allcounter);
 for counter:=upcount to diagtmp+1 do
 begin;
 Afile1[file1count]:=A[diagtmp-1,counter];
 inc(file1count);
 end;
 dec(allcounter);
end;
 for i:=1 to file1count do
   write(Afile1[i]:3);
   readln;
   readln;
end.

@ildwine · 11.01.2014, 22:55

LudmilaValinova, а где рисунок...

@LudmilaValinova · 11.01.2014, 23:35 **[ТС]**

Сообщение от ildwine

LudmilaValinova, а где рисунок...

Ой извиняюсь я думала что прикрепила не знаю как отослать Название: Основа прогри.png
Просмотров: 21

Размер: 5.3 Кб

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

@ildwine Почетный модератор 6197 / 2946 / 1300 Регистрация: 04.03.2013 Сообщений: 5,793 Записей в блоге: 1
	11.01.2014, 22:55	2
	LudmilaValinova, а где рисунок... 0

@LudmilaValinova 1 / 1 / 0 Регистрация: 11.01.2014 Сообщений: 8
	11.01.2014, 23:35 [ТС]	3
	Сообщение от ildwine LudmilaValinova, а где рисунок... Ой извиняюсь я думала что прикрепила не знаю как отослать 0