Блок схему лень, но вот программа: program Ok; var A:array[1..10] of integer; i,x:integer; begin x:=0; for i:=1 to 10 do read(A[i]); for i:=1 to 10 do if(A[i] < 0) then x:=x+1; write('Кол-во отрицательных элементов массива = ', x); end.
Dato24043846
09.08.2021
Занятия проводятся по расписанию.
Toggle Bar

Алгоритмы 25 марта 2013 Просмотров: 8211
Алгоритмы записи алгоритмов
Выделяют три наиболее распространенные на практике записи алгоритмов:
словесный (запись на естественном языке);графический (запись с использованием графических символов);программный (тексты на языках программирования).
Словесный записи алгоритмов
Словесный записи алгоритма на естественном языке. Данный очень удобен, если нужно приближенно описать суть алгоритма. Однако при словесном описании не всегда удается ясно и точно выразить логику действий.
В качестве примера словесного записи алгоритма рассмотрим алгоритм нахождения площади прямоугольника
S=a*b,
где S – площадь прямоугольника; а, b – длины его сторон.
Очевидно, что a, b должны быть заданы заранее, иначе задачу решить невозможно.
Словестный записи алгоритма выглядит так:
Начало алгоритма.Задать численное значение стороны a.Задать численное значение стороны b.Вычислить площадь S прямоугольника по формуле S=a*b.Вывести результат вычислений.Конец алгоритма.
kap393
09.08.2021
Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составьте блок схему и программу для подсчёта количества отрицательных элементов массива (массив с клавиатуры
program Ok;
var
A:array[1..10] of integer;
i,x:integer;
begin
x:=0;
for i:=1 to 10 do
read(A[i]);
for i:=1 to 10 do
if(A[i] < 0) then
x:=x+1;
write('Кол-во отрицательных элементов массива = ', x);
end.