на паскале заполнить массив из 10 элементов случайными числами от [0,5) и найти количество единиц
5-9 класс
|
const n=10;
var k:arrya[1..n] of integer; i, w:integer;
begin
randomize;
for i:=1 to n do begin
k[i]:=random(5);
if (k[i]=1) then w:=w+1;
end;
write('Кол-во единиц', w);
end.
program edinica;
var r:array[1..n] of integer; i, e:integer;
begin
n := 10;
e := 0;
randomize;
for i := 1 to n do
begin
r[i] := random(5);
if (r[i]=1) then e:=e+1;
end;
writeln('Количество единиц в массиве', e);
end.
Другие вопросы из категории
другой берег однако в лодку кроме крестьянина помещается либо только волк либо тлько коза либо только капуста оставлять волка с козой либо козу с капустой без присмотра нельзя волк может съесть козу а коза может съесть капустк
как должен вести себя крестьянин?
оформите план переправы любым способом
c клавиатуры
массив из 5 элементов, найти минимальный из них.
Читайте также
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
-4 10 3 -5 4 0 1 -10 8 -6
1. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
2. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую- по убыванию. Здесь решать лучше методом выбора.
заполнить массив из 10 элементов случайными числами из интервала от -10 до 10 вывести на экран а затем увеличить каждый элемент массива на 1 и повторно вывести на экран