А. создайте программу, которая заполняет массив 5 × 9 числами по следующему правилу: • элементы, расположенные в первом столбце, равны 1; • элементы, расположенные во втором столбце, равны 2; • … • элементы, расположенные в девятом столбце, равны 9. б. выведите созданный массив на экран: ответ запишите в турбо паскале версия 7.0

Uses Crt;
var
   a:array[1..5,1..9] of byte;
   i,j:byte;
begin
   ClrScr;
   for i:=1 to 5 do begin
      for j:=1 to 9 do begin
         a[i,j]:=j;
         Write(a[i,j]:2)
         end;
      Writeln
      end;
   ReadKey
end.

Результат
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9

Практически во всех языках программирования применяются компоненты, которые называются циклами. Возможно обойтись и без них, но этот подход редко применяется среди программистов, поскольку современные приложения используют пакетную обработку данных. Каждый разработчик программного обеспечения должен решать самостоятельно, стоит ему применять циклы или нет. Специалисты, опираясь на психологию человека, разработали специализированный алгоритм. Если выполнять все его пункты, то результат будет поразительным. Инструкцию также можно использовать для изучения какой-либо другой дисциплины, но в этом случае ее необходимо переделать. Для теории применяется такой алгоритм: Достоинства и недостатки применения циклов. Синтаксис, необходимый для использования циклических операторов. Общая информация о блок-схемах. Абстрактные модели. Далее следует разобрать подробно каждый пункт инструкции. Пропускать их запрещается. Обучаемый потеряет зря время либо сам процесс обучения существенно увеличится. Для начала нужно разобрать основные достоинства и недостатки применения циклов в Турбо Паскале.

Объяснение:

#include "stdafx.h"

#include <stdio.h>//i/o

#include <conio.h> //_getch()

#include <ctype.h> //toupper

 

int main()

 

{

   long i,n;

   float cost, p,buf;

   do

   {

       printf("Vvedite pervonachalnuy stoimost : ");scanf_s("%f",&cost);

       printf("Vvedite procent p %  : ");scanf_s("%f",&p);

       printf("Vvedite n chisl Let : ");scanf_s("%u",&n);

       for(i = 0; i < n; i++)

       {

           printf("Let %u\r\n",i + 1);

           buf = cost*p/100;

           printf("Stoimost za zimmu + : %f\r\n",(cost += buf));

           buf = cost*p/100;

           printf("Stoimost za zimmu -: %f\r\n",(cost -= buf));

       }

       printf("Stoimost %u Let %f\r\n",i,cost);

       printf("Najmite Y - new input\r\n");

   }

   while(toupper(_getch()) == 'Y');

   return 0;

}