Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 03.06.2011
Сообщений: 11
1

Одномерный массив: поиск элементов с заданными свойствами

03.06.2011, 21:28. Показов 1113. Ответов 1
Метки нет (Все метки)

помогите решить задание 4.Одномерные массивы.
и задание 5.двумерные массивы.
пожалуйста очень срочно и попроще, чтоб учитель не чо не запалил)
Миниатюры
Одномерный массив: поиск элементов с заданными свойствами  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2011, 21:28
Ответы с готовыми решениями:

Одномерный массив. Поиск элементов с заданными свойствами
Даны массивы: HD1...HD10 - шифры дорог; k1... k10 - категории дорог; S1...S2 - протяженность...

Массив. Поиск элементов с заданными свойствами
В массиве хранятся элементы, соответствующие росту учеников класса. Найти: -средний рост учеников...

Массив: поиск элементов с заданными свойствами
Здравствуйте, нужна ваша помощь в пяти различных заданиях по турбо паскалю, буду премного...

Массив. Поиск элементов с заданными свойствами, замена
Помогите пожалуйста Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с...

1
26 / 26 / 34
Регистрация: 01.01.2011
Сообщений: 89
04.06.2011, 00:03 2
Лучший ответ Сообщение было отмечено frosty33 как решение

Решение

4)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var a:array[1..15] of integer;
i,n,sum,k,ii,max,maxi,min,mini:integer;
begin
 
for i:=1 to 15 do begin
read(a[i]);
end;
writeln;    writeln;       max:=0;
for   i:=1 to 15 do
if i mod 2 =0 then sum:=sum+a[i];
writeln ('cумма чисел с четными индексами: ',sum);
writeln;
 for   i:=1 to 15 do
if (a[i]<0)  and( a[i] mod 5=0) then k:=k+1;
writeln('количество отрицательных и кратных 5: ',k);
    writeln;
   for   i:=1 to 15 do
if (a[i]<0) and (abs(a[i]) mod 7=2)and(a[i]<>-2) then ii:=i;
writeln('индекс отрицательного и делящегося на 7 с остатком 2: ',ii);
  writeln;
 
 writeln('заменить максимальный на 6: ' );
  for   i:=1 to 15 do
if (max<a[i]) then  begin max:=a[i];maxi:=i;end;
for i:=1 to 15 do      begin
a[maxi]:=6;
write( a[i]:4);             end;
  writeln;
  
  writeln( ' до первого отрицательного:');
 for   i:=1 to 15 do
if min>a[i] then begin min:=a[i];mini:=i;end;
for i:=1 to 15 do begin
if i< mini then  a[i]:=0; write(a[i]:4);     end;
  writeln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2011, 00:03

Двумерный массив: арифметические действия с элементами, поиск элементов с заданными свойствами
помогите пожалуйста написать программу для нахождения (массив риал 9х9 значения вводятся в массив с...

Матрица: поиск элементов с заданными свойствами
Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными,...

Одномерные массивы. Поиск элементов с заданными свойствами
Прошу, помогите. Исходный массив должен быть выведен на экран. Все преобразования производить с...

Одномерные массивы. Поиск элементов с заданными свойствами
Исходный массив должен быть выведен на экран. Все преобразования производить с исходным мссивом....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru