Информатика. Артемова С.В - 18 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

repeat
if a[i] mod 2 =0 then
s := s+a[i]; { Накопление суммы четных элементов }
i := i+1; { Увеличение счетчика цикла }
until i > n; { Проверяется условие выхода за пределы массива }
WriteLn('Выводится сумма четных элементов массива: ',s);
ReadKey; { Задержка экрана }
end.
Пример программы на СИ: Программа вычисляет сумму четных элементов одномерного массива.
// Подключаемые библиотеки
#include<stdio.h> // Библиотека ввода-вывода
#include<conio.h> // Библиотека работы с окнами
#define N 6 // Макроопределение (размерность массива)
void main(void) // Главная функция (основной блок программы)
{
// Раздел объявления локальных переменных
int mas[N]; // Одномерный массив из N элементов
int i,s; // i-переменная счетчика цикла, s-сумма четных элементов
clrscr(); // Очистка экрана
printf("Составитель: Грибков Алексей Николаевич");
printf("\n\t\tФакультет КТФ, группа Р-11\n\n");
for(i=0;i<N;i++)
{
printf("Введите %i элемент массива: ", i);
scanf("%i", &mas[i]); // Ввод элементов массива
}
s=0; // Присвоение начального значения переменной s
for(i=0;i<N;i++)
{
if(mas[i]%2==0) // Проверка на четность (деление на два без остатка)
s+=mas[i]; // Накопление суммы
}
// Вывод полученного значения суммы на экран
printf("\nСумма четных элементов равна s=%i", s);
getch(); // Задержка экрана до нажатия любой клавиши
}
{ Задание 1. Найти максимальный элемент среди элементов,
находящихся выше главной диагонали квадратной матрицы.
Указать его индексы. }
uses crt; { Подключение библиотеки ввода-вывода }
const n = 3; { Задается размерность матрицы }
var i, j, max, imax, jmax: Integer;
a: Array [1..n,1..n] of Integer;
begin
ClrScr; { Очистка экрана }
WriteLn('Составил Поляков Д.Г., КТФ, Р-11');
WriteLn; { Вывод пустой строки }
for i := 1 to n do { Во вложенном цикле }
begin { происходит заполнение матрицы }
for j := 1 to n do
begin
WriteLn('Введите ',i,'.',j,'-й элемент матрицы');
Read(a[i,j]); { Ввод элементов матрицы }
end;
WriteLn; { Вывод пустой строки }
end;
for i := 1 to n do { Во вложенном цикле }
begin { происходит вывод матрицы }
for j := 1 to n do Write(a[i,j]:3,' ');
WriteLn; { Вывод пустой строки }
end;
max := a[2,1];
for i := 1 to n do {Производится поиск макс. элемента и его координат }
begin { согласно заданию. }
for j := 1 to n do
if (j-i) >= 1 then
if a[i,j] > max then

Страницы