Нарисовать мишень при Написать программу рисования 500 букву Е
ОЧЕНЬ

Відповідь:

#include <iostream>

#include <cstdlib>

#include <time.h>

using namespace std;

void SetArray(int *A,int N){

for(int i = 0; i < N; i++){

 A[i] = rand() % 10 + 1;

}

}

void PrintArray(int *A,int N){

for(int i = 0;i < N; i++){

cout << A[i] << " ";

}

}

void expression(int *A,int N,int k,int l){

for(int i = k; k < l; k++ , l--){

 swap(A[k], A[l]);

}

}

int main(){

srand(time(NULL));

setlocale(LC_ALL , "Ukrainian");

int N,k,l;

cout << "Введiть розмiр масиву: ";

cin >> N;

int *A = new int[N];

SetArray(A,N);

PrintArray(A,N);

cout << "\nВведiть k: ";

cin >> k;

cout << "Введiть l: ";

cin >> l;

expression(A,N,k,l);

PrintArray(A,N);

delete[] A;            

return 0;

}

Const
  m=5;
  n=3;
var
  i,j,k:integer;
  a:array[1..m,1..n] of integer;
begin
  Randomize;
  Writeln('Исходный массив');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(999)+1;
      Write(a[i,j]:4);
      if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
      end;
    Writeln
  end;
  if k>0 then begin
    Writeln('Искомые элементы');
    for i:=1 to m do
      for j:=1 to n do
        if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
    end
  else
    Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.

Пример работы программы
Исходный массив
 424 672 826
 546 587 413
 507 211 884
 252 781 518
 750 656 359
Искомые элементы
424