Информатика. Учебно-методическое пособие. Артемова С.В - 20 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

Пример программы на языке Паскаль
{ Найти сумму четных элементов массива. }
uses crt; { Подключение библиотеки ввода-вывода }
const n = 10; { Размерность массива }
var i, s: Integer; { i-счетчик цикла,
s-переменная накопления суммы четных элементов массива }
a: Array [1..n] of Integer; { Объявление одномерного массива }
begin
ClrScr; { Очистка экрана }
WriteLn('Выполнил Поляков Д.Г., КТФ, Р-11 ');
WriteLn; { Вывод пустой строки }
for i := 1 to n do
begin
Write('Введите ',i,'-й элемент массива ');
ReadLn(a[i]); { Ввод элемента массива }
end;
for i := 1 to n do
Write(a[i]:2,' '); { Форматный вывод элементов массива }
WriteLn; { Вывод пустой строки }
s := 0; { Инициализация }
i := 1; { переменных }
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]); // Ввод элементов массива

Страницы