Одномерные массивы программирование на Паскаль - Форум
Воскресенье, 04.12.2016, 04:55
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Одномерные массивы программирование на Паскаль (задача)
Одномерные массивы программирование на Паскаль
efremokДата: Среда, 19.10.2011, 20:58 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
дан массив из 0 и 1, заменить все нули единицами, а все единицы нулями , не используя условный переход
 
KOT_B_MEIIIKEДата: Четверг, 20.10.2011, 18:58 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code


program mass;
const n=100;
var t:array[1..n] of 0..1;
  i:integer;
  begin
  for i:=1 to n do
  begin
  t[i]:=random(2);
  write(t[i]:2);
  end;
  writeln;
  for i:=1 to n do
      begin
      t[i]:=(t[i]+1) mod 2;
      write( t[i]:2);
      end;
writeln;writeln;
end.

как-то так
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Одномерные массивы программирование на Паскаль (задача)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016