Составьте программу для рисования рыбки в pascalabc

#include < cstdlib> #include < iostream> using namespace std; int main(int argc, char *argv[]){      int n;       cout< < "введите количество элементов массива."< < endl;       cin> > n;       int mas1[n];       int mas2[n];             for(int i=0; i< n; i++){      mas1[i] = rand()%100; //заполняем массив случайными числами от 0 до 100      if(mas1[i]%10 == 4) {                                mas2[i]=mas1[i]/2;                                 cout< < "замена! ";                                 }      else {cout< < "\t";                 mas2[i]=mas1[i];                 }      cout< < mas1[i]< < '\t'< < mas2[i]< < endl;       }      system("pause");       return exit_success; }

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.

одна из возможных форм курсора - прямая

во первых вам стало приятно, что вам подарили то, что вы так долго ждали. на это сразу отреагировал ваш головной мозг, в частности одна из главных желез секреции эндокринной системы. начал вырабатываться гармон серотонин. при этом человек чувствует, что у него резко поднимается настроение, увеличивается давление в сосудах, учащается сердцебиение. кровь отхлынывает сначала от нижних конечностей к головному мозгу. поэтому мы чувствуем некоторое оцепенение. затем кровообращение приходит в норму и мы чувствуем кучу сил, которые надо куда нибудь деть. в основном человек начинает радоваться, смеяться, дети начинают безостановочно прыгать, бегать, потому что серотонин влияет на двигательную активность и тонус мыщц.