Четверг, 28.03.2024, 20:47
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачку в Паскале)
Помогите решить задачку в Паскале)
O_OДата: Среда, 25.05.2011, 20:59 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Дана последовательность действительных чисел A1, A2, ... An. Заменить все её члены, большие данного Z, этим числом. Подсчитать количество замен.

Помогите, пожалуйста)
 
zadachkiДата: Четверг, 26.05.2011, 14:28 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
Code

program pr1;
var
a: array [1..256] of real;
z:real;
n,i,zameni:integer;
begin
  writeln('Vvedite Z');
  readln(Z);
  writeln('Vvedite kolichestvo elementov massiva');
  readln(n);
  writeln('Vvedite elementi massiva');
  for i:=1 to n do
   begin
   writeln('Vvedite element ',i);
   readln(a[i]);
   end;

  zameni:=0;
  for i:=1 to n do
   begin
   if a[i]>Z then
    begin
    a[i]:=Z;
    zameni:=zameni+1;
    end;
   end;

  writeln('Elementi novogo massiva:');
  for i:=1 to n do
   writeln(a[i],' ');
  writeln('Kolichestvo zamen = ',zameni);
readln;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачку в Паскале)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024