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

1. дан двумерный массив размером 3x5. вычислить сумму элементов массива 2. дан массив целых чисел размеров 4х4. заменить все элементы главной диагонали на нули. вывести на экран монитора содержимое массива до обработки и после обработки 3. в двумерном массиве 4х4. вычислить среднее арифметическое элементов главной диагонали. 4. в двумерном массиве вычислить количество четных элементов 5. дан массив a(5,5). вывести ее в элементы ниже главной диагонали в треугольном виде (т. е. напечатать элементы нижнего треугольника в виде треугольника)

👇
Ответ:
Dog7771
Dog7771
23.03.2023
1. Дан двумерный массив размером 3x5. Вычислить сумму элементов массива
var a: array[1..3, 1..5] of integer; 
i,i2,sum: integer; 
Begin 
for i:=1 to 3 do 
Begin 
for i2:=1 to 5 do 
Begin 
Writeln('Введите элемент '); readln(a[i,i2]); 
sum+=a[i,i2]; 
end; 
end; 
Writeln('Сумма: ', sum); 
end.
2. Дан массив целых чисел размеров 4х4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки
var 
a: array[1..4, 1..4] of integer; 
i, i2: integer; 
begin 
for i:=1 to 4 do 
Begin 
for i2:=1 to 4 do 
Begin 
Writeln('Введите элемент: '); read(a[i,i2]); 
end; 
end; 
Writeln('Массив до изменений: '); 
for i:=1 to 4 do 
Begin 
for i2:=1 to 4 do 
Begin 
write(a[i,i2]); 
end; 
writeln(); 
end; 
Writeln('Массив после изменений: '); 
for i:=1 to 4 do 
Begin 
for i2:=1 to 4 do 
Begin 
If i=i2 then 
a[i,i2]:=0; 
write(a[i,i2]); 
end; 
writeln(); 
end; 
end.
3. В двумерном массиве 4х4. Вычислить среднее арифметическое элементов главной диагонали.
var 
a: array[1..4, 1..4] of integer; 
i, i2,sum,count: integer; 
srednee: real; 
begin 
for i:=1 to 4 do 
Begin 
for i2:=1 to 4 do 
Begin 
Writeln('Введите элемент: '); read(a[i,i2]); 
If i=i2 then 
Begin 
sum+=a[i,i2]; 
count+=1; 
end; 
end; 
end; 
Writeln('Массив: '); 
for i:=1 to 4 do 
Begin 
for i2:=1 to 4 do 
Begin 
write(a[i,i2]); 
end; 
writeln(); 
end; 
srednee:=sum/count; 
Writeln('Среднее арифметическое главной диагонали массива: ', srednee); 
end.
4. В двумерном массиве вычислить количество четных элементов
var 
a: array[1..4, 1..4] of integer; 
i, i2,sum,count: integer; 
srednee: real; 
begin 
for i:=1 to 4 do 
Begin 
for i2:=1 to 4 do 
Begin 
Writeln('Введите элемент: '); read(a[i,i2]); 
If (a[i,i2] mod 2=0) then 
Begin 
count+=1; 
end; 
end; 
end; 
Writeln('Массив: '); 
for i:=1 to 4 do 
Begin 
for i2:=1 to 4 do 
Begin 
write(a[i,i2]); 
end; 
writeln(); 
end; 
Writeln('Количество чётных элементов массива: ', count); 
end.
4,4(27 оценок)
Открыть все ответы
Ответ:
vbbbbb
vbbbbb
23.03.2023
#include <iostream>
#include <conio.h>
#include <time.h>
using namespace std;

void main()
{
 srand(time(NULL));
 setlocale(0, "");
 int arr[17];
 int a, b, chet=0, nechet = 0;
cout << "Введите диапазон ." << endl << "Нижняя граница диапазона: "; cin >> a; cout << "Верхняя граница диапазона: "; cin >> b; cout << endl;
for (int i = 0; i < 17; ++i)
{
  arr[i] = a + rand() % (b-a+1);
  cout <<" "<<arr[i];
}
for (int i = 0; i < 17; ++i)
{
  if (arr[i] % 2 == 0) chet++;
 else nechet++;
} if (chet > nechet)
 cout << " \n Четных больше";
else if (nechet>chet)
 cout << "\n Нечетных больше";
else cout << "\n Одинаковое количество четных и нечетных";
 _getch();
}
4,7(37 оценок)
Ответ:
ароаурв
ароаурв
23.03.2023
{неэффективный алгоритм}

const
 k = 100;

type
 maze = array [1..k, 1..k] of integer;
 var
 l : maze;
 n, m: integer;
 i, j: integer;
 c: char;
 t: text;
 w: integer;
 x0, y0: integer;
 x1, y1: integer;

procedure ways(a,b,r:integer);
begin
 if (w = 0) or (r < w) then {нет смысла идти дальше, если текущий путь уже превосходит найденный}
 if (l[a,b] <> -2) then
 if (r < l[a,b]) or (l[a,b] = -1) then {нет смысла идти, если текущая клетка уже была достигнута за меньшее число шагов}
   begin
   l[a,b] := r;
   if (a = x1) and (b = y1) then
     w := r
   else
     begin
     if a <> 1 then ways(a - 1, b, r + 1);
     if b <> 1 then ways(a, b - 1, r + 1);
     if a <> n then ways(a + 1, b, r + 1);
     if b <> m then ways(a, b + 1, r + 1);
     end
   end;
end; 
begin
 assign(t, 'input.txt');
 reset(t);
 w := 0;
 readln(t, n, m);
 readln(t, x0, y0);
 readln(t, x1, y1);
 for i := 1 to n do
   begin
   for j := 1 to m do
     begin
     read(t, c);
     case c of
       '.' : l[i,j] := -1; {будем считать, что если клетка отмечена как -1, то путь к ней еще не найден}
       'X' : l[i,j] := -2; {-2, если клетка непроходима}
       end;
     end;
   readln(t)
   end;
 close(t);
 if (l[x0,y0] <> -2) and (l[x1,y1] <> -2) then
   begin
   l[x0,y0] := 1; {просто трюк, чтобы пройти проверку на (r < l[x0,y0])}
     ways(x0, y0, 0);
   end
 else
  l[x1,y1] := -1;
 writeln(l[x1,y1])
end.
4,4(70 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ