решить через паскаль через массивы))
1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Предмет:
ИнформатикаАвтор:
abelardo1.
program asd;uses crt;var a: array[1..10] of integer; i:integer; sum:integer;beginwriteln('Введите 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;beginwriteln('Введите 10 цифр по очереди'); for i:=1 to 10 do begin readln(a[i]); if (a[i]>naib) then naib:=a[i]; end;
writeln(' ',naib);
end.
Автор:
leslyДобавить свой ответ
Докажите, что квадратное уравнение (где"- квадрат, т.е. ах в квадрате) ах"+bx-c=0 имеет ровно один корень на промежутке [0;1], если а, b и с - это длины сторон треугольника.
Предмет:
МатематикаАвтор:
websterОтветов:
Смотреть
Три ученика записали 36 разных девятизначных чисел.2-ой ученик записал вдвое больше чисел,чем первый,а 3-й-в три раза больше,чем первый.Сколько чисел записал каждый из них? Решить не как уравнение,без Х.
Предмет:
МатематикаАвтор:
jackson750Ответов:
Смотреть
начертить схему предложения " Сквозь облака изредка пробьёться луч солнца и опять исчезнет."
Предмет:
Русский языкАвтор:
hot sauceОтветов:
Смотреть
Как называются города,которые не нанесены на карту,но существуют в реальности.
Есть ли такие?Примеры можно не приводить.Заранее спасибо.