tolkina
1

дан одномерный массив с размером n.

22.06.2009, 14:47. Показов 1152. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1) дан одномерный массив с размером n. Найти максимальный элемент среди отрицательных элементов массива и заменить его первым элементом массива


2) дана матрица А(N,N). Если хотя бы один элемент строки матрицы отрицателен, то все элементы этой строки заменить нулями.


3) дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-oй : 2, 4, 8, 16, ...

ЗАРАНЕЕ СПАСИБО!
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2009, 14:47
Ответы с готовыми решениями:

Дан массив размером n*n
Дан массив размером n*n , элементы которого целые числа. Подсчитать среднее арифметическое...

Дан массив размером n*n,
Дан массив размером n*n, элементы которого целые числа. Поменять местами два средних столбца, если...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

дан двумерный массив размером m*n. Вычислить количество нулевых элементов в каждой строке и результаты записать в массив размера M.
дан двумерный массив размером m*n. Вычислить количество нулевых элементов в каждой строке и...

3
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
22.06.2009, 14:58 2
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
uses crt;
var a:array[1..100] of integer;
     i,j,n,max,ind:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 
 for i:=1 to n do
  begin
  writeln('Vvedite ',i,' element ');
  readln(a[i]);
  end;
 
for i:=1 to n do 
 write(a[i],' ');
 writeln;
i:=0;
repeat
i:=i+1;
until(a[i]<0)or(i>=n);
 
max:=a[i];
ind:=i;
for j:=i to n do
 if (a[j]>max)and(a[j]<0) them begin max:=a[j]; ind:=j; end;
 
a[ind]:=a[1];
a[1]:=max;
 
for i:=1 to n do 
 write(a[i],' ');
 
 readln;
end.
Добавлено через 4 минуты 5 секунд
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
37
38
uses crt;
var a:array[1..100,1..100] of integer;
     i,j,n,k:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
 
 for i:=1 to n do
  for j:=1 to n do
  readln(a[i,j]);
 
 
for i:=1 to n do 
 begin
  for j:=1 to n do
  write(a[i]:6);
  writeln;
 end;
 
for i:=1 to n do
 for j:=1 to n do
  if a[i,j]<0 then 
     begin
      for k:=1 to n do
         a[i,k]:=0;
     end;
 
writeln('massiv2');
for i:=1 to n do 
 begin
  for j:=1 to n do
  write(a[i]:6);
  writeln;
 end;
 
 readln;
end.
0
172 / 96 / 12
Регистрация: 29.05.2009
Сообщений: 341
22.06.2009, 15:00 3
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program masiv;
const n:=20;
var A:array [1..n] of real;
    i,j:integer;
    
begin   repeat
        write('Размер матрицы m=');
        readln(m);
        until m in [1..n];
        max:=-3e10;
        for i:=1 to m do
            if A[i]<0 then
                      if A[i]>max  then begin max:=A[i];
                                              j:=i;
        A[j]:=A[1];
        Readln;
End.
0
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
22.06.2009, 15:02 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a:array[1..100,1..100] of integer;
     i,j,n,k:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
a[1]:=2;
 for i:=2 to n do
   a[i]:=a[i-1]*2;
 
for i:=1 to n do 
 write(a[i],' ');
 writeln;
readln;
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2009, 15:02
Помогаю со студенческими работами здесь

Как создать одномерный массив размером М элементов
Если есть уже двумерный массив размером М*N элементов и как записать в одномерный массив среднее...

Дан двумерный массив размером 10*10. Вывести на экран часть массива расположенную выше главной диагонали. Массив заполняется случайными числами.
Дан двумерный массив размером 10*10. Вывести на экран часть массива расположенную выше главной...

Сформировать одномерный массив размером K+N из двух упорядоченных одномерных массивов
Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N,...

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.


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

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

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