Изучите параграф 4.1, тема "Сноски", попробуйте сделать Практическое задание из рубрики "Примени на практике" стр. 108 на компьютере (для этого на ПК должна быть установлена программа
115
430
Ответы на вопрос:
Вобщем, т.к. ты мне не ответил - лови две программы: 1) program dasf; var b,c,i: integer; a: array[1..100] of real; d: array[1..100] of real; begin writeln('введите размерность массива d'); readln(b); for i: =1 to b do begin writeln('введите элемент массива №',i); readln(d[i]); end; writeln('массив а: '); for i: =1 to b do begin if i mod 2=1 then a[i]: =5+(d[i]*d[i]) else a[i]: =d[i]/i; writeln(a[i]); end; end. 2) program fgsadg; var i,b,x,y,z,k,t: integer; begin writeln('введите сколько чисел будет использоваться: '); readln(b); writeln('введите х: '); readln(x); writeln('введите число №',1); readln(z); k: =0; for i: =2 to b do begin writeln('введите число №',i); readln(y); if z+y=x then k: =k+1; z: =y; end; writeln(k); end. если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.
Популярно: Информатика
-
fara2003onozog7w17.07.2020 11:52
-
alinashakeeva17.12.2021 21:30
-
Ник123321114.05.2022 09:33
-
asdf4311.04.2023 03:30
-
пргремм625.04.2020 14:33
-
Ровног02.09.2021 00:44
-
ScHooLNick55524.05.2020 13:32
-
Maryana106906.10.2020 22:08
-
еааа2платьев15.06.2022 21:55
-
alex2029407.11.2020 07:01