Информатика, вопрос опубликован 14.03.2019 07:50 Лисавета11

50 ! соч по информатике вторая часть. распишите все как можно подробнее)) ​

Ответы
Ответ добавил: Гость

#include

#include

int main()

{

int n;

int cnt = 0;

std: : cin > > n;

int **arr = new int*[n];

for(int i=0; i

{

arr[i] = new int[n];

for(int j=0; j

{

std: : cin > > arr[i][j];

//arr[i][j] = ++cnt;

}

}

cnt = 0;

while(cnt < n)

{

for(int i=0; i< (n-cnt); i++) std: : cout < < std: : setw(2) < < arr[cnt][i] < < " ";

std: : cout < < std: : endl;

cnt++;

}

for(int i=0; i

delete [] arr[i];

delete [] arr;

arr = nullptr;

system("pause");

return 0;

}

Ответ добавил: Гость

program n1; uses crt; var s: string; a: char; i,k: integer; beginwriteln('vvedite stroku'); readln(s); writeln('vvedite simvol'); readln(a); for i: =1 to length(s) do if s[i]=a then k: =k+1; writeln('simvol ',a,' vstrechaetsa v stroke ',k,' raz'); readlnend.

Ответ добавил: Гость

1 квадрат

2 цифромания наверное

3 алгоритмизация

 

Ответ добавил: Гость

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

Больше вопросов по информатике