решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество
5-9 класс
|
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
1.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;
writeln(' ',sum);
end.
2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями?
3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;
writeln(' ',naib);
end.
Другие вопросы из категории
сделать в microsoft exel (желательно скинуть файлом, но можно и инструкцией)
частей:<направление> и <перемещение>.Возможны 6 направлений: вверх, вниз, вправо, влево, вперёд и назад.Перемещение задается натуральным числом, не превосходящим 54.В каждой команде направление кодируется минимально возможнымколичеством бит, одинаковым для каждого направления. Перемещение такжекодируется минимально возможным количеством бит, одинаковым длякаждого перемещения.Каков информационный объём последовательности из 40 команд?
1) 40 байт 2) 360 бит 3) 1620 байт 4) 2400 бит
Читайте также
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.