Irishka1
1

Составить схему алгоритма и программу определения в массиве Х[K] количества отрицательных элементов.

18.05.2011, 19:03. Показов 1217. Ответов 1
Метки нет (Все метки)

Помогите мне,пожалуйста, создать программу для Паскаля!
Заранее спасибо!Буду очень благодарна!

1)Составить схему алгоритма и программу определения в массиве Х[K] количества отрицательных элементов.

2)Составить схему алгоритма и программу вычисления среднего значения отрицательных элементов массива А[1..6,1..3].

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2011, 19:03
Ответы с готовыми решениями:

Составить схему алгоритма и программу определения количества нечетных элементов массива
Помогите решить задачи,пожалуйста. 1: Составить схему алгоритма и программу определения...

Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества отрицательных элементов
Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных...

Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества отрицательных элементов
Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества отрицательных...

Составить программу определения количества отрицательных элементов
Составить программу определения количества отрицательных элементов кратных трем и в диагоналях...

1
56 / 56 / 20
Регистрация: 07.02.2011
Сообщений: 159
18.05.2011, 22:55 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
uses
    crt;
const
     max=50;
var
   a:array[1..max,1..max] of integer;
   i,j,n,s,k:integer;
begin
     writeln('wvedite razmernost matrici');
     readln(n);
     writeln('wvedite matricu ',n,' x ',n);
     for i:= 1 to n do
         begin
              for j:= 1 to n do
                  read(a[i,j]);
         end;
     s:=0;
     k:=0;
     for i:= 1 to n do
         begin
              for j:= 1 to n do
                  if (j mod 2<>0) and (i mod 2<>0) then
                     begin
                          s:=a[i,j]+s;
                          k:=k+1
                     end;
         end;
         s:=round(s/k);
         writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);
readkey
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2011, 22:55

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Составить схему алгоритма и программу определения корня квадратного значений элементов массива
Составить схему алгоритма и программу определения корня квадратного значений элементов массива D и...

Составьте блок-схему алгоритма и программу вычисления в массиве А(10) количества нечетных элементов
Пожалуйста, составьте программу вычисления в массиве А(10) количества нечетных элементов

Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества чётных элементов.
Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества чётных элементов.

Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов
Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.