
Паскаль/С пж 1. Создать целочисленный массив А 20 элементов. Заполнить его с клавиатуры, и
вывести на экран в строку. Вычислить сумму, количество и среднее арифметическое значение отрицательных чисел. 2.Сформировать массив В с 6 строк и 4 столбцов. Заполнить его случайными числами меньше ста, вывести на экран в виде таблицы. Заменить двухзначные элементы массива числом 10.

Ответы на вопрос

Ответ:
1.
#include <iostream>
#include <algorithm>
#include <iomanip>
#include <cmath>
using namespace std;
int main()
{
long long a[20], i, sum = 0, sum1 = 0;
for(i = 0; i < 20; i++)
{
cin >> a[i];
if(a[i] < 0)
{
sum += a[i];
sum1++;
}
}
for(i = 0; i < 20; i++)
cout << a[i] << " ";
cout << endl;
cout << sum << " " << sum1 << " " << sum / sum1 << endl;
return 0;
}
2.
#include <iostream>
#include <algorithm>
#include <iomanip>
#include <cmath>
using namespace std;
int main()
{
long long b[6][4], i, j;
for(i = 0; i < 6; i++)
{
for(j = 0; j < 4; j++)
{
b[i][j] = rand() % 100;
if(b[i][j] > 9 && b[i][j] < 100)
b[i][j] = 10;
cout << b[i][j] << " ";
}
cout << endl;
}
return 0;
}
Объяснение:



Конечно, вот пример программы на языке программирования Pascal (или C) для выполнения указанных задач:
Для Pascal:
pascalprogram ArrayOperations; var A: array[1..20] of integer; B: array[1..6, 1..4] of integer; i, j, sumNeg, countNeg: integer; averageNeg: real; begin // Задача 1 writeln('Задача 1:'); writeln('Введите 20 целых чисел для массива A:'); sumNeg := 0; countNeg := 0; for i := 1 to 20 do begin readln(A[i]); if A[i] < 0 then begin sumNeg := sumNeg + A[i]; countNeg := countNeg + 1; end; end; writeln('Массив A:'); for i := 1 to 20 do write(A[i], ' '); writeln; if countNeg > 0 then begin averageNeg := sumNeg / countNeg; writeln('Сумма отрицательных чисел в A: ', sumNeg); writeln('Количество отрицательных чисел в A: ', countNeg); writeln('Среднее арифметическое отрицательных чисел в A: ', averageNeg:0:2); end else writeln('В массиве A нет отрицательных чисел.'); // Задача 2 writeln('Задача 2:'); writeln('Массив B (до):'); for i := 1 to 6 do begin for j := 1 to 4 do begin B[i, j] := random(100); write(B[i, j]:4); end; writeln; end; writeln('Массив B (после):'); for i := 1 to 6 do begin for j := 1 to 4 do begin if (B[i, j] >= 10) and (B[i, j] <= 99) then B[i, j] := 10; write(B[i, j]:4); end; writeln; end; readln; end.
Этот код выполняет две задачи:
Создает и заполняет массив A, вычисляет сумму, количество и среднее арифметическое отрицательных чисел в этом массиве.
Создает массив B, заполняет его случайными числами и заменяет двухзначные элементы числом 10.
Для языка C:
c#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int main() {
// Задача 1
printf("Задача 1:\n");
int A[20];
int sumNeg = 0;
int countNeg = 0;
printf("Введите 20 целых чисел для массива A:\n");
for (int i = 0; i < 20; i++) {
scanf("%d", &A[i]);
if (A[i] < 0) {
sumNeg += A[i];
countNeg++;
}
}
printf("Массив A:\n");
for (int i = 0; i < 20; i++) {
printf("%d ", A[i]);
}
printf("\n");
if (countNeg > 0) {
double averageNeg = (double)sumNeg / countNeg;
printf("Сумма отрицательных чисел в A: %d\n", sumNeg);
printf("Количество отрицательных чисел в A: %d\n", countNeg);
printf("Среднее арифметическое отрицательных чисел в A: %.2lf\n", averageNeg);
} else {
printf("В массиве A нет отрицательных чисел.\n");
}
// Задача 2
printf("Задача 2:\n");
int B[6][4];
srand(time(NULL));
printf("Массив B (до):\n");
for (int i = 0; i < 6; i++) {
for (int j = 0; j < 4; j++) {
B[i][j] = rand() % 100;
printf("%4d", B[i][j]);
}
printf("\n");
}
printf("Массив B (после):\n");
for (int i = 0; i < 6; i++) {
for (int j = 0; j < 4; j++) {
if (B[i][j] >= 10 && B[i][j] <= 99) {
B[i][j] = 10;
}
printf("%4d", B[i][j]);
}
printf("\n");
}
return 0;
}
Этот код также выполняет две задачи, аналогичные описанным выше для Pascal.


Похожие вопросы

Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili