Уважаемые эксперты помогите!!! Необходимо составить программу на языке Turbo Pascal в письменном виде, которая выыодит на экран мою фамилию, имя и класс, а затем решение задачи (если требуется, то данные запрашивать с клавиатуры) Сформировать одномерный массив А(20) случайными числами, заменить чётные по порядковому номеру (2-ой, 4-ый, 6-ой и т.д.) элементы на 0. Вывести на экран исходный и полученный массивы. З.Ы. Имя, фамилию и класс возьмите произвольно!!!
Здравствуйте, Stan! Т.е. другими словами, сами Вы писать ничего не хотите? Ответ отправлен: 22.11.2004, 05:27 Отправитель: sir henry Отвечает ALex_zaw
Доброе время суток, Stan! Смотрите.
Приложение: Ответ отправлен: 21.11.2004, 10:13 Отправитель: ALex_zaw Отвечает Xak
Доброе время суток, Stan! Я так понимаю у вас тута две задачи. Вообщето мы тут не решаем задачи а помогаем советами, я один раз вам напишу, но впредь знайте что такое больше не пройдет. 1) Uses crt; Var x,y,y:string; begin clrscr; writeln('Введите имя:'); readln(x); writeln('Введите фамилию:'); readln(y); writeln('Введите отчество:'); readln(z); writeln; writeln; write('Имя:',x,' Фамилия:',y,' Отчество:',z); readln; end. 2) Uses crt; Var a:array[1..20] of integer; i:integer; begin clrscr; randomize; for i:=1 to 20 do begin a[i]:=random(10)+1; end; i:=1; for i:=1 to 20 do begin if i div 2 = 0 then a[i]:=i; write(a[i]:4:2); end; readln; end; Если мое это решение вам поможет то жду благодарности :) Ответ отправлен: 20.11.2004, 17:01 Отправитель: Xak Отвечает Snowm@n
Здравствуйте, Stan! Такие задачи в детском саду решают... ps Все имена и фамилии в программе выдуманы, любое совпадение считать случайностью :)
Приложение: Ответ отправлен: 20.11.2004, 22:23 Отправитель: Snowm@n
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.