Информатика помогите решить
10-11 класс
|
5) 1
6) 4......................................
Другие вопросы из категории
вывести на экран номер первого элемента, равного нулю, и нуль при отсутсвии такого элемента в массиве.
Ниже приведен рекомендованный вид экрана во время выполнения программы, для самопроверки результата(данные, введенные пользователем, выделены полужирным шрифтом).
Дан одномерный массив сотоящий из 10 элементов.Вывод на экрна номер первого элемента, равного нуляю, и нуль при отсутсвии такого элемента в массиве.
Ввод элеентов массива
Введите 1 элемент массива: 0
Введите 2 элемент массива: 1 и т.д. до 9
Очистка Экрана
0 1 2 3 4 5 6 7 8 9
НОмер нулевого элемента массива: 1
информационный объем сообщения, состоящего из 180 значков?
Читайте также
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
сколько единиц?
Информатику помогите решить срочно((
Даю 25 баллов, но если будет решены все 10.