Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
krack666
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 13
1

Две задачки на массивы

14.05.2009, 16:33. Просмотров 999. Ответов 2
Метки нет (Все метки)

1.Дан одномерный массив из 10 элементов.Все четные элементы массива возвести в квадрат,а нечетные удвоить

2.Написать программу,которая вводит по строкам с клавиатуры двумерный массив и вычисляет среднее арифметическое его элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2009, 16:33
Ответы с готовыми решениями:

Две задачки - Массивы
Доброго времени суток.. Нужна помощь, нужно решить две задачки.. Заранее,...

Две простые задачки
Доброго времени суток!. Очень прошу помочь решить две вот такие вот задачи....

две жестокие задачки
1)напишите программу, которая находит первое отрицательное число...

помогите решить две задачки
Всем привет, помогите решить две задачки, сам я в Pascal`не соображаю......

НАРОД!!! Помогите решить две задачки ПОЖАЛУЙСТА!!!!
Задача 1. На предприятии работают N рабочих по М месяцев каждый получая разную...

2
Mat_All
12 / 12 / 3
Регистрация: 01.04.2009
Сообщений: 27
14.05.2009, 16:56 2
Лучший ответ Сообщение было отмечено krack666 как решение

Решение

Цитата Сообщение от krack666 Посмотреть сообщение
1.Дан одномерный массив из 10 элементов.Все четные элементы массива возвести в квадрат,а нечетные удвоить
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
Program Mat_All;
Uses WinCrt;
Const n=10;
Var
  B:array [1..n] of integer;
  i,j,k,otr,min:integer;
Begin
  Randomize;
  Writeln ('Ishodnuy:');
  For i:=1 to n do
    Begin
      B[i]:=Random(20)-41;
      Write (B[i]:6);
    End;
  Writeln;
 
  For i:=1 to n do
  if (i mod 2=0) then
   B[i]:=B[i]*B[i]
  else B[i]:=2*B[i];
 
  Writeln ('Polu4ennuy:');
  For i:=1 to n do
  Write (B[i]:6);
End.
1
demidrolll
131 / 130 / 60
Регистрация: 10.12.2008
Сообщений: 286
15.05.2009, 23:26 3
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
uses
  crt;
const
  n=3;
  m=3;
var
  i,j: integer;
  sr: real;
  a: array [1..n,1..m] of integer;
begin
  clrscr;
  for i:= 1 to n do
  begin
    for j:= 1 to m do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
      sr:=sr+a[i,j];
    end;
  end;
  for i:= 1 to n do
  begin
    for j:= 1 to m do
      write(a[i,j],' ');
    writeln;
  end;
  writeln('Srednee arifmeticheskoe = ',sr/(n*m):4:2);
  readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2009, 23:26

Задачки на массивы
Здравствуйте уважаемые программисты кто знает как решить эти 2 скромненькие...

Задачки на одномерные массивы
Здраствуйте, очень очень срочно нужно решить задачки: B9 Удалить...

Одномерные массивы(задачки)
Здрасте всем. Огромная просьба решить задачки. 1)В массиве все элементы,...


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

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

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