Радость написать программу и блок схему

@Натька · Регистрация: 12.12.2013

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

написать программу и блок-схему увеличивающая в 2 раза все эелементы массива которые больше 15 )) помогите плиз
2.Вычесть из положительных элементов число 7 ,а к отрицательным прибавить число 5
3. Найти сумму минимальног8о и максимального элементов массива

@Svager · 12.12.2013, 18:13

вот первая

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
uses crt;
const n=5;
var a,b:array[1..n,1..n] of integer;
i,j,s:integer;
BEGIN
clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(30)-10;
 
   for i:=1 to n do
   begin
    for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     writeln;
 
     for i:=1 to n do
      for j:=1 to n do
       if a[i,j]>15 then
        a[i,j]:=a[i,j]*2;
 
        for i:=1 to n do
         begin
          for j:=1 to n do
           write(a[i,j]:4);
            writeln;
            end;
readkey;
END.

Добавлено через 2 минуты
________________________________________________________________________________
вот вторая

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
uses crt;
const n=5;
var a,b:array[1..n,1..n] of integer;
i,j,s:integer;
BEGIN
clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(30)-10;
 
   for i:=1 to n do
   begin
    for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     writeln;
 
     for i:=1 to n do
      for j:=1 to n do
       if a[i,j]>0 then
        a[i,j]:=a[i,j]-7
         else
          if a[i,j]<0 then
           a[i,j]:=a[i,j]+5;
 
        for i:=1 to n do
         begin
          for j:=1 to n do
           write(a[i,j]:4);
            writeln;
            end;
readkey;
END.

Добавлено через 2 минуты
______________________________________________________________________

вот третья

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
uses crt;
const n=5;
var a,b:array[1..n,1..n] of integer;
i,j,s,max,min:integer;
BEGIN
clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(30)-10;
 
   for i:=1 to n do
   begin
    for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     writeln;
     min:=a[1,1];max:=a[1,1];
     for i:=1 to n do
      for j:=1 to n do
       if a[i,j]>max then
        max:=a[i,j]
         else
          if a[i,j]<min then
           min:=a[i,j];
 
           s:=max+min;
           writeln('MAX = ',max,' MIN = ',min);
           writeln;
           writeln('Symma max+min = ',s);
 
readkey;
END.

Новые блоги и статьи Все статьи Все блоги /
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .	Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .

@Натька 0 / 0 / 0 Регистрация: 12.12.2013 Сообщений: 4
		1
	Радость написать программу и блок схему 12.12.2013, 18:01. Показов 1065. Ответов 1 Метки нет (Все метки) написать программу и блок-схему увеличивающая в 2 раза все эелементы массива которые больше 15 )) помогите плиз 2.Вычесть из положительных элементов число 7 ,а к отрицательным прибавить число 5 3. Найти сумму минимальног8о и максимального элементов массива 0

Опции темы

Радость написать программу и блок схему

Решение