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

Решить по паскалю при процедуры и функции 1.дана прямоугольная таблица, которая содержит не более 30 строк и не более 10 столбцов. найти сумму элементов, у которых сумма их индексов число кратное 5. 2. дан двумерный массив, который содержит не более 20 строк и не более 5 столбцов. найти минимальный элемент и поменять его местами со вторым элементом первой строки массива. массив вывести в виде таблицы.

👇
Ответ:
megaandreychuk
megaandreychuk
19.03.2023
1)type ta=array[1..30,1..10] of Integer;

var ma:ta;
i,k,j:integer;

procedure SearchAndInc(ma:ta; var k:integer);
var i,j:integer;
begin;
for i:=1 to 30 do
 for j:=1 to 10 do
  if (i+j) mod 5=0 then k:=k+ma[i,j];
end;

begin;
randomize;
writeln('Matrix:');
for i:=1 to 30 do
 begin;
  writeln;
   for j:=1 to 10 do
    begin;
     ma[i,j]:=random(50);
     write(ma[i,j]:4);
    end;
 end;
SearchAndInc(ma,k);
writeln;
writeln('Result:',k);
end.

2)type
 ta=array[1..20,1..5] of Integer;

 procedure Minim(ma:ta;var mini,minj:integer);
var i,j,min:integer;
begin;
min:=2147483647;
for i:=1 to 20 do
 begin;
  for j:=1 to 5 do
   begin;
    if min>ma[i,j] then
      begin;
        min:=ma[i,j];
        mini:=i;
        minj:=j;
      end;
    end;
 end;
end;

var ma:ta;
i,j,c,mini,minj,min:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 20 do
 begin;
  writeln;
   for j:=1 to 5 do
    begin;
     ma[i,j]:=random(50);
     write(ma[i,j]:4);
    end;
 end;
Minim(ma,mini,minj);
writeln;
c:=ma[1,2];
ma[1,2]:=ma[mini,minj];
ma[mini,minj]:=c;
writeln('Final matrix:');
for i:=1 to 20 do
 begin;
  writeln;
   for j:=1 to 5 do
    write(ma[i,j]:4);
 end;
writeln;
writeln('Min:',min);
end.
4,5(10 оценок)
Ответ:
koshakmarta
koshakmarta
19.03.2023
Вот держи две штуки через процедуры
4,7(67 оценок)
Открыть все ответы
Ответ:
swatcamgg
swatcamgg
19.03.2023

1. почистить изнутри 2. если есть непригодные детали заменить 3. по надобности можешь повысить оперативы, но нужно, чтобы планки памяти были одинаковые! 4 по надобности можешь добавить ssd памяти, поставив новый диск, но он должен быть такой же как и старый. если вирус снеси винду и через флэшку и биос поставь новую, предварительно кинуть на другую флэшку нужную информацию.

p.s по моим подщетам на почистить детали-530руб. оператива kingston 8гб 2 штуки 290$ ssd память терабайт-299$, флэшка или диск с виндоус 10 pro version с полной поддержкой-125$ итого: 43370руб. это примерная цена, я заходил месяц назад на магазин и это без доп деталей! в $: 722,83$

4,6(12 оценок)
Ответ:

#include <iostream>

#include <vector>

using namespace std;

bool isLeap(int y){

   return (y % 400 == 0 || (y % 4 == 0 && y % 100 != 0));

}

signed main(){

   string s, cur;

   cin >> s;

   vector<int> d;

   for(int i = 0; i < s.length(); i++){

       if(s[i] == '.'){

           d.push_back(stoi(cur));

           cur.clear();

       }

       else

           cur += s[i];

   }

   d.push_back(stoi(cur));

   int k = d[0];

   d[1]--;

   while(d[1] > 0){

       if(d[1] == 2) k += 28 + isLeap(d[2]);

       else if((d[1] < 8 && d[1] % 2 == 1) || (d[1] >= 8 && d[1] % 2 == 0)) k += 31;

       else k += 30;

       d[1]--;

   }

   cout << (365 + isLeap(d[2])) - k + 1;

}

4,6(12 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ