
Техника
Не понимаю, что такое массивы, нужно решить задачи
Даны 30 задач. Огромная просьба помочь решить хотя бы 10 любых, хотя бы (!!!) 

Вот задачи с 1 по 15. Остальные не помещаются.
program num;
Var a:array [1..10] of integer;
j,k, s, A1:integer;
begin
writeln('Массив: ');
for j:=1 to 10 do
begin
a [ j ] :=Random(41)-20;
write(a [ j ], ' ');
end;
writeln;
{задача 1}
writeln('Номера элементов, которые не принадлежат интервалу от -10 до +10:');
for j:=1 to 10 do
if (a [ j ] < -10) or (a [ j ] >10) then write (j, ' ');
writeln;
{задача 2}
writeln('Введите число А '); readln(A1);
writeln('Номера элементов, которые больше А: ');
for j:=1 to 10 do
if a [ j ] > A1 then write (j, ' ');
writeln;
{задача 3}
writeln('Номера элементов, которые меньше А: ');
for j:=1 to 10 do
if a [ j ] < A1 then write (j, ' ');
writeln;
{задача 4}
writeln('Номера элементов, которые кратны А: ');
for j:=1 to 10 do
if a [ j ] mod A1 = 0 then write (j, ' ');
writeln;
{задача 5}
writeln('Номера элементов, которые оканчиваются на цифру А: ');
for j:=1 to 10 do
if abs(a [ j ] mod 10) = A1 then write (j, ' ');
writeln;
{задача 6}
k:=0;
for j:=1 to 10 do
if a [ j ] < 0 then k:=k+1;
writeln('Количество отрицательных элементов=', k);
{задача 7}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 2 = 0 then k:=k+1;
writeln('Количество четных элементов=', k);
{задача 8}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 2 <> 0 then k:=k+1;
writeln('Количество нечетных элементов=', k);
{задача 9}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 5 = 0 then k:=k+1;
writeln('Количество элементов кратных 5 =', k);
{задача 10}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 10 = 0 then k:=k+1;
writeln('Количество элементов оканчивающихся на 0 =', k);
{задача 11}
s:=0;
for j:=1 to 10 do
if a [ j ] mod 2 = 0 then s:=s+a[j];
writeln('Сумма четных элементов=', s);
{задача 12}
s:=0;
for j:=1 to 10 do
if a [ j ] >0 then s:=s+a[j];
writeln('Сумма положительных элементов=', s);
{задача 13}
s:=0;
for j:=1 to 10 do
if a [ j ] <0 then s:=s+a[j];
writeln('Сумма отрицательных элементов=', s);
{задача 14}
s:=0;
for j:=1 to 10 do
if a [ j ] =0 then s:=s+a[j];
writeln('Сумма нулевых элементов=', s);
{задача 15}
s:=0;
for j:=1 to 10 do
if a [ j ] mod 3 =0 then s:=s+a[j];
writeln('Сумма элементов кратных 3 =', s);
end.
program num;
Var a:array [1..10] of integer;
j,k, s, A1:integer;
begin
writeln('Массив: ');
for j:=1 to 10 do
begin
a [ j ] :=Random(41)-20;
write(a [ j ], ' ');
end;
writeln;
{задача 1}
writeln('Номера элементов, которые не принадлежат интервалу от -10 до +10:');
for j:=1 to 10 do
if (a [ j ] < -10) or (a [ j ] >10) then write (j, ' ');
writeln;
{задача 2}
writeln('Введите число А '); readln(A1);
writeln('Номера элементов, которые больше А: ');
for j:=1 to 10 do
if a [ j ] > A1 then write (j, ' ');
writeln;
{задача 3}
writeln('Номера элементов, которые меньше А: ');
for j:=1 to 10 do
if a [ j ] < A1 then write (j, ' ');
writeln;
{задача 4}
writeln('Номера элементов, которые кратны А: ');
for j:=1 to 10 do
if a [ j ] mod A1 = 0 then write (j, ' ');
writeln;
{задача 5}
writeln('Номера элементов, которые оканчиваются на цифру А: ');
for j:=1 to 10 do
if abs(a [ j ] mod 10) = A1 then write (j, ' ');
writeln;
{задача 6}
k:=0;
for j:=1 to 10 do
if a [ j ] < 0 then k:=k+1;
writeln('Количество отрицательных элементов=', k);
{задача 7}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 2 = 0 then k:=k+1;
writeln('Количество четных элементов=', k);
{задача 8}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 2 <> 0 then k:=k+1;
writeln('Количество нечетных элементов=', k);
{задача 9}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 5 = 0 then k:=k+1;
writeln('Количество элементов кратных 5 =', k);
{задача 10}
k:=0;
for j:=1 to 10 do
if a [ j ] mod 10 = 0 then k:=k+1;
writeln('Количество элементов оканчивающихся на 0 =', k);
{задача 11}
s:=0;
for j:=1 to 10 do
if a [ j ] mod 2 = 0 then s:=s+a[j];
writeln('Сумма четных элементов=', s);
{задача 12}
s:=0;
for j:=1 to 10 do
if a [ j ] >0 then s:=s+a[j];
writeln('Сумма положительных элементов=', s);
{задача 13}
s:=0;
for j:=1 to 10 do
if a [ j ] <0 then s:=s+a[j];
writeln('Сумма отрицательных элементов=', s);
{задача 14}
s:=0;
for j:=1 to 10 do
if a [ j ] =0 then s:=s+a[j];
writeln('Сумма нулевых элементов=', s);
{задача 15}
s:=0;
for j:=1 to 10 do
if a [ j ] mod 3 =0 then s:=s+a[j];
writeln('Сумма элементов кратных 3 =', s);
end.
Да массив - ЭТО СПИСОК ЧИСЕЛ С их адресами (как по квартирам)
Массив имеет ИМЯ и (в скобочках номер квартирки)
Или как на физкультуре выстроились и РАССЧИТАЛИСЬ - первый-второй-третий.... -десятый.
Пишешь примерно так
var i:integer;
a: array [1...10] of integer; {целые числа. }
{Волшебное слово }
BEGIN
{вводим этот массив}
a[1]:=-5;
a[2]:=10;
a[3]:=10;a[42]:=10;a[5]:=10;a[6]:=10;a[7]:=10;a[8]:=10;a[9]:=10;a[10]:=10;
{и так вводим все 10 чисел}
{Начинаем решать задачи. Создаем циклы}
{Например ПЕРВУ. Ю}
WRITELN('ЗАДАЧА НОМЕР 1.');
FOR I:=1 TO 10 DO BEGIN
IF A<10 WRITELN(I:2);
IF A>10 WRITELN(I:2);
END;{IF 1}
{РЕШАЕМ ВТОРУЮ. }
WRITE('ЗАДАЧА НОМЕР 2 ВВЕДИТЕ ЧИСЛО '); READLN(B);
FOR I:=1 TO 10 DO BEGIN
IF A>B WRITELN(I:2);
END;{IF 2}
END.
и ТАК ДАЛЕЕ.
Пиши.
Массив имеет ИМЯ и (в скобочках номер квартирки)
Или как на физкультуре выстроились и РАССЧИТАЛИСЬ - первый-второй-третий.... -десятый.
Пишешь примерно так
var i:integer;
a: array [1...10] of integer; {целые числа. }
{Волшебное слово }
BEGIN
{вводим этот массив}
a[1]:=-5;
a[2]:=10;
a[3]:=10;a[42]:=10;a[5]:=10;a[6]:=10;a[7]:=10;a[8]:=10;a[9]:=10;a[10]:=10;
{и так вводим все 10 чисел}
{Начинаем решать задачи. Создаем циклы}
{Например ПЕРВУ. Ю}
WRITELN('ЗАДАЧА НОМЕР 1.');
FOR I:=1 TO 10 DO BEGIN
IF A<10 WRITELN(I:2);
IF A>10 WRITELN(I:2);
END;{IF 1}
{РЕШАЕМ ВТОРУЮ. }
WRITE('ЗАДАЧА НОМЕР 2 ВВЕДИТЕ ЧИСЛО '); READLN(B);
FOR I:=1 TO 10 DO BEGIN
IF A>B WRITELN(I:2);
END;{IF 2}
END.
и ТАК ДАЛЕЕ.
Пиши.
Учись программист, учись.. . А то работать пойдешь как я будешь на работе продолжать учиться)) ) Ты еще не написала на каком яву тебе это писать надо. К слову массив это некоторое множество значений, заданных в определенном порядке и имеющих строго определенную позицию.. .
По задачам у тебя все просто, но мне лень за тебя решать в 12 ночи=)
Объяви массив циклом, сделай условие, выведи массив циклом. . Если нужно в услловии выполни определенное преобразование...
По задачам у тебя все просто, но мне лень за тебя решать в 12 ночи=)
Объяви массив циклом, сделай условие, выведи массив циклом. . Если нужно в услловии выполни определенное преобразование...
На каком языке программирования? На паскале могу реализовать
Похожие вопросы
- Ну очень нужно решить задачу!Есть 25 одинаковых деталей. Одна из них легче других. Дано три! взвешивания. Как определить
- Помогите решить задачу. по электротехнике
- подскажите пожалуйста как решить задачу о перехвате одной ракеты другой. нужно составить программу.
- Помогите решить задачу …
- как решать задачи в паскале? помогите решить задачи УМОЛЯЮ вообще не получается у меня..
- Помогите решит задачу!
- Установка ГПЭС мощностью 4,5 МВт в блочно-модульном исполнении. Помогите решить задачу.
- Народ, кто-нибудь, помогите решить задачу плииз
- помогите решить задачи в паскале
- кто решит задачу,получит 10 баллов