сервис вопросов и ответовПомогите~
5-9 класс|
|
1.Дано линейный масив целых чисел.Найти в нем количество элементов, все цифры которых непарные
2.дано линейный масив типа real. Найти в нем самый маленький положительный элемент
Банан1001
07 дек. 2014 г., 18:01:24 (9 лет назад)
Kirill13Nigaev
07 дек. 2014 г., 20:31:15 (9 лет назад)
Program s1;
USES crt;
Const n=10;
Var A:array [1..n,1..n] of integer;
i,j,k:integer;
BEGIN
For i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
If not A[i,j] mod 2 = 0 then
k:=k+1;
end;
Writeln;
end;
Writeln('Количество непарных элементов: ',k);
END.
Program s2;
Uses crt;
Const n=10;
Var A:array [1..n] of real;
i:integer; mine:real;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=1+Random(20);
Write(A[i],' ');
end;
Writeln;
mine:=A[1];
For i:=1 to n do
begin
If A[i]<mine then mine:=A[i];
end;
Writeln('Минимальный элемент массива: ',mine);
END.
Ответить
Другие вопросы из категории
7 КЛАСС!!!!! СРОЧНО ПОМОГИТЕ7 КЛАСС!!!!! СРОЧНО ПОМОГИТЕ РЕШИТЬ!
Имеется два кувшина ёмкостью 3л и 8л. Исполнитель ДЖИНН может набирать воду из реки в каждый кувшин, выливать из него воду и определять, налита ли вода в кувшин доверху.
а) Составьте алгоритм, выполнив который ДЖИНН наберёт из реки 7 л воды.
б) Пусть ДЖИННу подменили трёхлитровый кувшин двухлитровым. Существует ли теперь алгоритм для этого исполнителя, позволяющий набрать из реки 7 л воды?
Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы массива
таким образом, что производится перестановка 6 и 16 элементов массива
Читайте также
Помогите пожалуйста очень прошу вас добрые вы люди .-. Даны три числа a,b,c если они положительные то найти их сумму,а если отрицательные то поменять
знаки и затем найти сумму Помогите алгоритм составить в Паскале .
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
после установки виндовс 7 у меня не работают колонки компьютер их не видит помогите.
если пофессионал помогите в двойне плиз !!!!
Помогите эти задания зависят на оценку за четверть 1) Записать алгоритм распознания среди всех треугольников прямоугольные, если таковых нет
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
Вы находитесь на странице вопроса "Помогите~", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.