сервис вопросов и ответовДаннмассив натуральных чисел. Массив заполнить произвольно случайными числами и вывести в одну строку. Найти сумму элементов. Кратных данному k.
10-11 класс|
|
Вывести с клавы.Плиизз. Контра.
Zfhucvgcom
02 июля 2016 г., 4:32:06 (7 лет назад)
Daniaandpolina
02 июля 2016 г., 7:07:14 (7 лет назад)
const N = 20;
var a: array [1..N] of integer;
i, k, sum, s: integer;
begin
for i := 1 to N do
begin
a[i] := random(11); //заполняем
sum := sum + a[i]; //Сумма всех эл-тов
end;
for i := 1 to N do
write(a[i], ' '); //Выводим
writeln; //переход на новую строку
writeln(sum);
readln(k);
for i := 1 to N do
if ((a[i] mod k) = 0) then
s := s + a[i]; //сумма эл-тов кратных k
writeln(s);
end.
Ответить
Другие вопросы из категории
статья, набранная на компе, содержит 64 страницы, на каждой странице 40 строк, в каждой сторе 48 символов. определите размер статьи в кодировке КОИ - 8, в
котрой каждый символ кодируется 8 битами
1) 1920 байт
2) 960 байт
3)120 Кбайт
4) 240 Кбайт
Записать алгоритм решения задачи в виде блок-схемы.Будет ли сумма цифр заданного натурального
двузначного числа четной?
По нескольким определениям отгадайте термин информатики.
Текстовое, числовое, денежное, ключевое, логическое
Помогите пожалуйста записать эту программу в массивах, программу написал но в массивах слабо разбираюсь. или объясните как ее записать? Если нужен файл
'belarus.jpg' он прикреплен. Спасибо
program Geograf1;
uses GraphABC;
var karta, A, S: integer;
begin SetWindowSize(520,480);
karta := LoadPicture('belarus.jpg');
DrawPicture(karta,10,10);
setBrushColor(clRed);
S:=1700; A:= round(sqrt(S)); Rectangle (250, 225, 250+a, 225+A);
S:=500; A:= round(sqrt(S)); Rectangle(405,345,405+a,345+A);
S:=330; A:= round(sqrt(S)); Rectangle(375,215,375+A,215+A);
S:=340; A:= round(sqrt(S)); Rectangle(360,105,360+A,105+A);
S:=320; A:= round(sqrt(S)); Rectangle( 55,235,55+A,235+A);
S:=300; A:= round(sqrt(S)); Rectangle( 40,385,40+A,385+A);
end.
Читайте также
Вы находитесь на странице вопроса "Даннмассив натуральных чисел. Массив заполнить произвольно случайными числами и вывести в одну строку. Найти сумму элементов. Кратных данному k.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.