Найти и выдать на печать все элементы линейного массива целых чисел

@neizer · Регистрация: 21.04.2010

Студворк — интернет-сервис помощи студентам

1. Найти и выдать на печать все элементы линейного массива целых чисел c(n), которые больше заданного числа t
2. В линейном массиве целых чисел b(50) заменить все элементы, кратные введенному числу d, на их квадраты
3. Удалить наименьший элемент массива вещественных чисел z(n)

прошу помочь в решении, буду очень благодарен

@Snoopy · 21.04.2010, 18:11

1

Pascal

Readln(t);
for i:=1 to n do
 if c[i]>t then
  Write(c[i],'  ');

2

Pascal

Readln(d);
for i:=1 to 50 do
 if b[i] mod d=0 then
  b[i]:=sqr(b[i]);

3

Pascal

min:=z[1];
for i:=2 to n do
 if z[i]<min then
  begin 
   min:=z[i];
   im:=i;
  end;
m:=0;
for i:=1 to n do
 if i=im then
  inc(m)
 else
  z[i-m]:=z[i];
n:=n-m;

@neizer · 21.04.2010, 18:14 **[ТС]**

Cпасибо большое

@neizer 0 / 0 / 0 Регистрация: 21.04.2010 Сообщений: 16
		1
	Найти и выдать на печать все элементы линейного массива целых чисел 21.04.2010, 17:59. Показов 1943. Ответов 2 Метки нет (Все метки) 1. Найти и выдать на печать все элементы линейного массива целых чисел c(n), которые больше заданного числа t 2. В линейном массиве целых чисел b(50) заменить все элементы, кратные введенному числу d, на их квадраты 3. Удалить наименьший элемент массива вещественных чисел z(n) прошу помочь в решении, буду очень благодарен 0

@neizer 0 / 0 / 0 Регистрация: 21.04.2010 Сообщений: 16
	21.04.2010, 18:14 [ТС]	3
	Cпасибо большое 0

Опции темы

Найти и выдать на печать все элементы линейного массива целых чисел

Решение