logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ЛизаКрекер1

39) какие типы подпрограмм есть в языке паскаль ? otber: inter realлаluаллу будет равно значение переменной а в конце программы? ​

👇
Увидеть ответ
Открыть все ответы
Ответ:
deniza0906
deniza0906
22.01.2021
<?php
echo "Исходный массив:";
$n = rand(1,13);
$S = 0;
for($i = 0; $i < $n; $i++)
{
   $A[] = rand(-10,10);
   $S+=$A[$i];
   echo " $A[$i]";
}
echo "<br>Сумма элементов = $S<br>";

$k = -1;
for($i = $n-1; $i >= 0; $i--)
   if ($A[$i] < 0) $k = $i;
if ($k == -1) echo "В массиве нет отрицательных элементов";
else echo "№ первого отрицательного: $k";
$Sr = $S/$n;
echo "<br>Sr = $Sr<br>";
$B = 0;
$C = 0;
for($i = 0; $i < $n; $i++)
{
   if ($A[$i] < $Sr) $B = $i;
   if ($A[$i] > $Sr) $C = $i;
}
echo "№ элемента, превышающего Sr: $C<br>";
echo "№ элемента, который меньше Sr: $B";
?>
4,7(93 оценок)
Ответ:
magicufoshowp08hm1
magicufoshowp08hm1
22.01.2021
#include "stdafx.h"
#include <stdio.h>
#include <windows.h>

int main()  
  {
    SetConsoleCP(1251);      
    SetConsoleOutputCP(1251);  
 
int const n=3;
int mas[n][n];
int sum1, sum2;
bool magik;

for (int i=0; i<n; i++)
    for (int j=0; j<n; j++)
         {
           printf("mas[%d][%d] = ", i+1, j+1);
           scanf("%d",&mas[ i ][ j ]);
         }

printf("\nВведенная матрица:\n");
     for (int i=0; i<n; i++)
        {
             for (int j=0; j<n; j++)
                       {
                          printf("%d  ",mas[ i ][ j ]);
                       }
             printf("\n");
         }

sum1=0;
sum2=0;

for (int i = 0; i<n; i++)
     {
            sum1 += mas[ i ][ i ];
            sum2 += mas[ i ][ n-1-i ];
      }

printf("Сумма главной диагонали = %d\n", sum1);
printf("Сумма побочной диагонали = %d\n", sum2);

magik = true;
for (int i=0; i<n; i++)
    {
        if (sum1==sum2)
             {
                 sum2=0;
                 for (int j=0; j<n; j++)
                    {
                        sum2 += mas[ i ][ j ];
                     }
              } else  { magik=false; break; }
     }

if (magik==true)
     {
           for (int i=0; i<n; i++)    
               {
                   if (sum1==sum2)
                        {
                           sum2=0;
                           for (int j=0; j<n; j++)
                               {
                                   sum2 += mas[ j ][ i ];
                               }
                         }
                        else  { magik=false; break; }
                 }
       }

if (magik==true)
    printf("\nМатрица является магическим квадратом\n");  
else
    printf("\nМатрица не является магическим квадратом\n");

system("pause");
return 0;
}
4,4(40 оценок)
Это интересно:
В
Как ответить тому, кто ненавидит вас: советы психологов...
20.12.2022
Как поцеловать девушку в кино (для учеников средней школы)...
17.09.2022
Как ухаживать за мягкими игрушками...
Ф
Секреты получения Платиновой карточки American Express...
29.03.2023
Как освободиться от чувства вины...
Ф
10 шагов к успеху: как стать торговцем на фермерском рынке...
С
Как укладывать волнистые волосы: советы и лайфхаки...
К
Как изменить имя контакта в WhatsApp и почему это важно?...
К
Как вычислить пропускную способность?...
К
Как найти железо в игре Minecraft: советы для начинающих игроков...
Новые ответы от MOGZ: Информатика
Annpetushok
Annpetushok
04.08.2020
Var a: integer; begin read(a); a: = a mod 12; if (a =0)and(a 3) then write( зима ); if (a 2)and(a 6) then write( весна ); if (a 5)and(a 9) then write( лето ); if (a 8)and(a...
embazuka
embazuka
04.04.2021
Для операции неравенства используется знак ! = 2 ! = 3 - это true 2 ! = 2 - это false используй операцию неравенства, чтобы получить истину. то есть, попробуй применить эту...
andreykotov6
andreykotov6
26.12.2020
Напиши выражение с использованием операций +, -, *, / и скобок ( ), чтобы в результате получилось 1000....
Lego40
Lego40
15.12.2022
1.Рассмотри картинки датчиков. Напиши название каждого из них. Покажи стрелкой соответствие между устройством и его функцией ​...
4747384673838
4747384673838
11.12.2020
Составить СВОЙ план по рассказу Тарас Бульба на тему Над чем заставила задуматься эта повесть .​...
клинт
клинт
11.12.2020
Объем изображения, размером 40х50 пикселей, составляет 4000 байт. Сколько цветов использует изображение? ​...
jendossia
jendossia
11.12.2020
Напишите мини-эссе (рассуждение, 5-10 предложений), ответив на вопрос: изменились ли семейные ценности, которые провозглашал Л. Н. Толстой в своем романе Война и мир , в наше...
0Assistant0
0Assistant0
23.08.2020
Выполните 266 г-з только сами 8 класс добавлю второе фото оброзец...
школа5553
школа5553
23.08.2020
Дүниежүзілік мұхиттың географиялық жағдайы. 2-сабақ Жоспар бойынша сипатталған Филиппин теңізі туралы тұжырымдардың дұрыс немесе бұрыс екендігін анықта. 1. Тынық мұхитының батысында,...
botanchik1
botanchik1
10.03.2023
С чего начался третий день на воле? Мцыри...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ