М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
cucuruza5
cucuruza5
25.01.2020 03:37 •  Информатика

Фотоальбом - це презентація, що містить:

👇
Ответ:

Удачи тебе ответ на фото!!


Фотоальбом - це презентація, що містить:
4,5(81 оценок)
Открыть все ответы
Ответ:
shurashishkin1
shurashishkin1
25.01.2020

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

int main()

{

   int *arr;

   int x, y, i, j, sum = 0, min = 0, minstr = 0;

   srand(time(NULL));

   x = 2 + rand() % 10;

   y = 2 + rand() % 6;

   arr = (int*)malloc(x*y*sizeof(int));

   printf("Array %d x %d: \n", x, y);

   for (i = 0; i < x; i++){

       for (j = 0; j < y; j++){

           *(arr + i*y + j) = -50 + rand() % 100;

           printf("arr[%d][%d] = %3d; ", i, j, *(arr + i*y + j));

       }

       printf("\n");

   }

   for (i = 0; i < y; i++)

       min += *(arr + i);

   minstr = 0;

   for (i = 1; i < x; i++){

       for (j = 0; j < y; j++)

           sum += *(arr + i*y + j);

       if (sum < min) {

           min = sum;

           minstr = i+1;

       }

       sum = 0;

   }

   printf("Minimum amount: %d (%d line)", min, minstr);

   free(arr);

   return 0;

Объяснение:

это пример как делать

4,6(11 оценок)
Ответ:
Liza201713
Liza201713
25.01.2020
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.
4,5(77 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ