katya860531
?>

Выполняется в PascalABC.NET. Условие. 1. Создать двумерный массив размерность 5 на 5. Имя массива должно состоять из четырёх символов. . Первые два символа m2 – массив двумерный. Вторые два символа – первые буквы вашей фамилии и имени. Маленькие буквы английского алфавита. Пример: работа Омарова Талгата. Массив должен иметь имя - m2ot 2. Массив заполняется целыми числами до 20 включительно и выводится на экран в виде матрицы. 3. Для индексов в цикле рекомендуется применять буквы i, j, k, l, n. 4. Найти и напечатать сумму всех чисел массива. 5. Найти и напечатать сумму 3-ей строки. 6. Найти и напечатать сумму 2-го столбца. 7. Найти и напечатать сумму главной диагонали (слева направо 8. Найти и напечатать сумму боковой диагонали (справа налево) 9. Переменная для суммы должна иметь в имени первую букву вашего имени и sum. Для нашего примера с Талгатом подобная переменная будет иметь имя tsum. Если переменных несколько, в конце можете добавлять 1, 2, 3… 10. ПРОГРАММУ ПИШИТЕ ПОШАГОВО. На каждом шаге форматируйте и сразу избавляйтесь от ошибок. Если не сможете избавиться от синтаксической, но не логической ошибки, пришлите мне – разберёмся. Надеюсь, что этого не случится. Но если что не паникуйте.

Информатика

Ответы

Ирина

begin

 var m2ot := MatrRandom(5, 5, 0, 20);

 m2ot.Println;

 m2ot.ElementsByRow.Sum.Println; // 4

 m2ot.Row(2).Sum.Println; // 5

 m2ot.Col(1).Sum.Println; // 6

 // 7

 var tsum := 0;

 for var i := 0 to 4 do

   tsum += m2ot[i, i];

 tsum.Println;

 // 8

 tsum := 0;

 for var i := 0 to 4 do

   tsum += m2ot[i, 4 - i];

 tsum.Print

end.


Выполняется в PascalABC.NET. Условие. 1. Создать двумерный массив размерность 5 на 5. Имя массива д
elozinskaya
#include < bits/stdc++.h>   using namespace std;   int main(){        int n, m, k, c = 0, c1 = 0;         cin > > n > > m > > k;         c = n + m;         if (c % k == 0)        {                c1 = c / k;         }        else        {                c1 = (c / k) + 1;         }        if (2 * c1 < = m)        {                cout < < c1;         }        else        {                cout < < 0;         }         //cout < < "hello world! " < < endl;         return 0; }//sadasdadasdasdasd
targovich
//PascalABC.Net 3.2
{1}
begin
var a:=readArrinteger('Вводите: ', readinteger('n ='));
write ('Ср. арифметическое: ', a.Average);
end.

{2}
begin
var a:=readarrinteger('Водите: ', readinteger('n ='));
var sum:=0;
for var i:=0 to length(a)-1 do if i.isodd then sum+=a[i];
write ('Сумма: ', sum);
end.

{3}
begin
var a:=readarrinteger('Вводите: ', readinteger('Кол-во элементов: '));
var otr:=0; var pol:=0;
for var i:=0 to length(a)-1 do if a[i]<0 then otr+=1 else pol+=1;
write('Массив: '); a.Println;
if otr=pol then write ('Отрицательных и положительных элементов равное кол-во') else 
if otr>pol then write('Отрицательных больше на ', otr-pol) else
write ('Положительных больше на ', pol-otr);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Выполняется в PascalABC.NET. Условие. 1. Создать двумерный массив размерность 5 на 5. Имя массива должно состоять из четырёх символов. . Первые два символа m2 – массив двумерный. Вторые два символа – первые буквы вашей фамилии и имени. Маленькие буквы английского алфавита. Пример: работа Омарова Талгата. Массив должен иметь имя - m2ot 2. Массив заполняется целыми числами до 20 включительно и выводится на экран в виде матрицы. 3. Для индексов в цикле рекомендуется применять буквы i, j, k, l, n. 4. Найти и напечатать сумму всех чисел массива. 5. Найти и напечатать сумму 3-ей строки. 6. Найти и напечатать сумму 2-го столбца. 7. Найти и напечатать сумму главной диагонали (слева направо 8. Найти и напечатать сумму боковой диагонали (справа налево) 9. Переменная для суммы должна иметь в имени первую букву вашего имени и sum. Для нашего примера с Талгатом подобная переменная будет иметь имя tsum. Если переменных несколько, в конце можете добавлять 1, 2, 3… 10. ПРОГРАММУ ПИШИТЕ ПОШАГОВО. На каждом шаге форматируйте и сразу избавляйтесь от ошибок. Если не сможете избавиться от синтаксической, но не логической ошибки, пришлите мне – разберёмся. Надеюсь, что этого не случится. Но если что не паникуйте.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Анастасия1097
nata27-73589
iraira761
strannaya2018
Makarov
Novikova Aleksandrovna
Олимов Протопопова
drontox1031
misterdre9991
fominovaVladislav1346
alenchik19938823
Павел
vps1050
KovalenkoIL
Константин