Напишите программу подсчета количества и суммы нечетных частей массива
Напишите программку подсчета количества и суммы нечетных частей массива
Задать свой вопрос
Лилия Сапарева
Массив двумерный либо одномерный?
Милана Ботарыгина
Ввод частей вручную либо рандомом?
Алла
вручную
Тимур Джавадян
нет рандомно
2 ответа
Миша Шенюк
Если что нибудь необходимо объяснить или поменять, пиши.
const n=10; //заместо 10 количество ячеек в массиве (любое)
var a: array [1..n] of integer;
i,k,s: integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(100);
if i mod 2lt;gt;0 then
begin k:=k+1; s:=s+a[i]; end; end;
writeln(k,' ',S)
end.
const n=10; //заместо 10 количество ячеек в массиве (любое)
var a: array [1..n] of integer;
i,k,s: integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(100);
if i mod 2lt;gt;0 then
begin k:=k+1; s:=s+a[i]; end; end;
writeln(k,' ',S)
end.
Горихвостов
Валера
Если честно чуток чуток не понятно, можешь пожалуйста написать в столбик
Злата Лох
Перезагрузи страничку
Степан Канчев
if i mod 2<>0 then мы обычно так не записываем, и через констант не решаем
Ксюша Медко
А как вы записываете?
Калирницкий
Сережа
var i,k: integer;
Константин Скутарь
for i=1 to 10 do if a i> 50 then k:=k+1 например вот так
Евгений Кондыбин
У меня также. For находится немножко выше. Могу оформить по иному. const n=10; var a: array [1..n] of integer;i,k,s: integer;beginrandomize;for i:=1 to n do a[i]:=random(100); for i:=1 to n do if i mod 2<>0 then begin k:=k+1; s:=s+a[i]; end; writeln(k,' ',S) end.
Иван Чегров
спасибо))
Artjom Gamzik
Рада посодействовать)
Арсений Сорокинас
Код Pascal1
2
3
4
5
6
7
8
9
10
11
12
begin
var Size := ReadLnInteger('Размер массива =');
var A : array of Integer; SetLength(A, Size);
for var i := 0 to pred(Size) do
A[i] := ReadLnInteger('A[' + (i+1).ToString + '] =');
WriteLn('Введён массив A = ', A);
var count := 0; for var i := 0 to pred(Size) do if Not odd(A[i]) then count += 1;
WriteLn('В массиве чётных частей: ', count);
var max := 0; for var i := 1 to pred(Size) do if A[max] lt; A[i] then max := i;
var k := ReadLnInteger('k = '); A[max] *= k;
WriteLn('Массив A = ', A);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов