Задачи с массивами

@Climacool · Регистрация: 03.12.2011

Author24 — интернет-сервис помощи студентам

Добрый день. Помогите пожалуйста решить пару задач.

1. Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10. Размерность массива –25. Заполнение массива осуществить случайными числами от -5 до 15.
2. Найти сумму всех элементов двумерного массива целых чисел размерностью 5*5, расположен-ных на главной диагонали. Заполнение массива осуществить с клавиатуры.

Нашел решение второй задачи, но только здесь массив заполняется случайным образом, а не с клавиатуры.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Uses CRT;
 
Var A : Array[1..5,1..5] of Integer;
    I,J,S:Integer;
 
Begin
     S:=0;
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             A[I,J]:=Random(10);
 
     For I:=1 To 5 Do
     Begin
         For J := 1 To 5 Do
             Write(A[I,J]:3);
         WriteLn;
     End;
 
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             If I=J Then S:=S+A[I,J];
             
     WriteLn('Сумма всех элементов расположенных на главной диагонали = ',S);
 
End.

Заранее огромное спасибо за помощь.

@GoldenBoy · 03.12.2011, 15:57

2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Uses CRT;
 
Var A : Array[1..5,1..5] of Integer;
    I,J,S:Integer;
 
Begin
     S:=0;
     writeln('Ââåäèòå ìàòðèöó: ');
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             Readln(a[i,j]);
 
     For I:=1 To 5 Do
     Begin
         For J := 1 To 5 Do
             Write(A[I,J]:3);
         WriteLn;
     End;
 
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             If I=J Then S:=S+A[I,J];
 
     WriteLn('Ñóììà âñåõ ýëåìåíòîâ ðàñïîëîæåííûõ íà ãëàâíîé äèàãîíàëè = ',S);
 
End.

Добавлено через 12 минут
1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Uses CRT;
 
Var A : Array[1..5,1..5] of Integer;
    I,J,S,k:Integer; sr:real;
 
Begin
     S:=0;
     k:=0;
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             A[I,J]:=Random(21)-5;
 
     For I:=1 To 5 Do
     Begin
         For J := 1 To 5 Do
             Write(A[I,J]:3);
         WriteLn;
     End;
 
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             If (a[i,j]<=10) and (a[i,j]>=-2) Then
             begin
             k:=k+1;
             S:=S+A[I,J];
             end;
     sr:=s/k;
 
     WriteLn('Ñðåäíåå àðèôìåòè÷åñêîå = ',SR);
 
End.

Новые блоги и статьи Все статьи Все блоги /
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .	Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .	Указатели в Swift: Небезопасные, буферные, необработанные и управляемые указатели mobDevWorks 16.04.2025 Указатели относятся к наиболее сложным и мощным инструментам языка Swift. В своей сути указатель — это переменная, которая хранит адрес участка памяти, где расположены данные, а не сами данные. . . .

Опции темы